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INTRODUCTION 

T/ie pHjOQfWMit pK.2MtY[ttd keAz ojLt htt out jjo/t thz IndUvldixaZ who hm a ipe-dilc 
nttd AM mbnd. Bccau&e a deXcUZ&d ducii6^lon o^ tkd&z pxog^iam muZd /teqaUe a 
tzxt 62.veAal timu tha pKUznt 6lzt oi thU HbnjoJiy iX \wJt> been omittzd. Indl- 
vlduaZ& who hava. a Apecx^jJ-tc fizquUxeimnt mil ha\j& ta bt out lojiiit lmoiA)l&dg2ablt 
In thz oAza the. p/iogMm l& mAJttzn about; If- Statl&tlaal pn.0Qnjam& fizqiMJit thz 
u&eA to bz iamlUjui mXh thz tznm mzan, mzdian, ztc ThU i& faecaoie tkz pnxi- 
g/Lcmu> a/LZ mlttzn In thz vznnatuZoA oi tkzvt 6abjzct mattzn.. W-ct/i thl& know- 
Izdgz alonz, no pfwgnamming zxpznxzncz on thz pant oi tkz m&zn. -Li, JizqwiAzd In 
ofidzA to U6Z any oi thz&z phogfuuu in molt &y&tmi>. Onzz it U dztznxnlnzd that 
a. paAtLcjuZoA p/wgwm may bz aiziul thz oAeA mzn.ely typa^ Xm a copy oi thz BASIC 
&OUAC.Z zodz zxactly a6 It appzoJU, In thz pfuognam tUting. Thzn iottou) thz In- 
&tmjictlon& ion. mmnlng thz pH-og^jom a& p/iz&zntzd In thz Imt/iactlon portion oi 
thz mxtz up, Ajmzdixvtdiy pfizzzdlng thz pnjognnm. M&o tncZaded in thz mJXz wp& 
aA.z 6tatzmznt6 that appzax in thz louJizz codz voktch may po&iibly nzzd to bz 
changzd to Am in thz iii>zn.'& zomputzn. &y&tm; iz: RWP 6tatmznt6 may havz to bz 
changzd to FRAWP in ohdzn. to zompilz in czAtain 6y6tzm&. 
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Introduction 

He's absolutely MAD! MAD! MAD! 
Our 35th. president. 

Loveable "Peanuts" characters w/blanket. 
A modern miss to put a twinkle in your eye. 
Former "United States" president. 
Christmas or anytime this is a beautiful creation. 
A true work of art for anyone's gallery. 
A message for all seasons. 
True and blue, he's the law. 

In banner form, perfect for decorating the mantle- 
That paragon of Dogdom even plays football. 
A picture you can read as well as see. 
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TABLE OF CONTENTS 

VOLUME FIVE 

Experimenter's Programs 

NAME DESCRIPTION 

Andy Cap Draws this famous cartoon character. 

Baseball Plays a full 9 Innings of baseball. 

Compare Compares two groups of data. 

Confid 10 Determines the confidence limits for a normal population. 

Descrip Provides a description of unl~varlant data. 

Differ Computes the diff. of the means for data of equal variance. 

Engine Calculates the otto cycle of engines. 

Fourier This program evaluates fourier series. 

Horse Draws a picture of a horse. 

Integers Computes integers as the sum of other integers. 

Logic Determines conclusions from logic statements. 

Playboy Draws the playboy symbol. 

Primes Factors numbers Into their primes. 

Probal Calc. Chi-Sq. and probabilities from 2X2 data sets. 



viii 



TABLE OF CONTENTS 



VOLUME FIVE (CONT.) 

Experimenter's Programs 

NAME DESCRIPTION 



Quadrac 

Red Baron 

Regression 2 

Road Runner 

Roulette 

Santa 

Stat 10 

Stat 11 

Steel 

Top 

Vary 

Xmas 



Solves quadratic equations 

Draws a picture of the Infamous Red Baron. 

Calculates linear regressions. 

"Beep! Beep!" Draws a picture of the Road Runner. 

Computerized "Wheel of Fortune", plays roulette. 

Old Saint Nick appears as jolly as ever. 

Calculates quantities for two groups of paired data. 

Computes sample statistics- 

Calculates steel beam capacities. 

Computes cost for surfacing a road or driveway, etc. ^ 

Performs an analysis of a vari. table; one-way random design, 

Generates a "SINGING" Christmas card. 



TABLE OF CONTENTS 



VOLUME SIX 

A Complete Business System 



.. NAME 



Ledger 



DESCRIPTION 

Maintains ALL company accounts and generates ALL financial 
reports. Includes routines for: Pyrl, inv, Depr, A/R, A/P, 
Balance Sheets and Profit & Loss statements, etc. 



IX 



PREFACE 

The information contained in these pages represents the culmination of a 
very large project. That of compiling a versatile and complete Software 
Library that will be of use to a large number of diverse individuals. The 
programs presented here when combined in a system will represent a very 
powerful library bank. Such a worl< as this has been attempted in the past 
in such areas as cook books, electronic source books, mathematical tables 
and even computer games. But to date such a collection as this has yet to 
be offered to the average individual to use as he chooses. The word "at - 
temped" was used as no work is ever considered complete by everyone regar 
diess of its thoroughness. 

The programs presented here were chosen for their uniqueness and general 
usefulness. There should be at least one program included that will be of 
use to every type of individual whether they have access to a computer or 
not. Computers are a wonderful and very useful tool. Through this Library 
I hope to interest more people into becoming involved with computers. The 
Library is written so that little or no computer programming experience 
is required to invoke any of the programs. The programs that are present- 
ed here are all written in the computer language called BASIC. Each pro- 
gram has been successfully run on a G.E. 635 computer. The entire source 
code is presented as well as a short narrative page which defines the pro 
gram, tells who might be Interested in using it, a brief set of instruc- 
tions or how to get them and then any limitations in the program are no- 
ted. In the limitations section the storage length in K Bytes is given so 
the prospective user will know how much memory to allow for the program. 
Where possible the amount of memory space required for full execution is 
given for the programs, this space is independent of the space already oc 
cup led by your BASIC compiler. 

The programs are broken down into five sections or parts. Each part deals 
with a specific type of program. Part 1 contains business type programs. 
These programs will be of interest to individuals who have businesses, 
play the stock market, balance their own checkbooks, do installment buy- 
ing, figure taxes, etc. There are a total of 20 programs in this section. 
Part 2 is the lighter side of the Library as it contains 16 games and 12 
picture programs. No computer library is complete without some fun. Among 
the games presented in this section Is one called Checkers. The game is 
rather long but it is virtually machine independent as it doesn't use over 
lay techniques or use files. Most of the other games included here are as 
exciting as this version of Checkers. Each was chosen so as not to mimic 
others that the reader may have seen. The pictures are as unusual in their 
own way as are the games. Most of the pictures are spread over several pa 
ges, this was done not only so the reader will need to run the program to 
see the details of a particular picture but also in the hopes of getting 
as many of these programs into use as possible. As the picture programs 
are very simple it is an easy place for the novice to start learning about 
programming. 

Part 3 is comprised of Math and Engineering programs. Some of these programs 
will be of use to high school students, professional people, sailors, engi- 
neers, astronomers, airplane pilots, etc. Most of these programs are very 
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technical but they can perform every day calculations quickly and easily 
and they are extremely simple to use. There are 23 general usage programs 
presented In this section. 

Part k Is made up of Plotting and Statistical Analysis programs. These 
programs can be readily utilized by a number of people In widely differ- 
ent disciplines from fishermen to statisticians. The data gathered may 
be from a poll, a census, a test sample or even the number of fish cau- 
ght on various days. The stat programs will be of Invaluable aid to any- 
one who gathers data of any kind. The plotting routines will be of use 
to most of the people who use the stat programs or programs in Parts 1 
and 3. The plotting is done on any standard teletype or terminal and 
does not require a special plotter or plotting terminal. There are a tot 
al of five direct plotting programs and I8 stat programs In this section. 

All of the programs presented here may be run by simply typing the source 
code as listed, exactly as it Is, into your computer. Now before the pro- 
gram will run it will have to be converted into machine code. This Is done 
automatically and requires no forethought except to make certain the oper- 
ating system you are working in Is BASIC. In the larger computer systems 
you are asked what system you want — to this type BASIC; the smaller sys 
tems only have BASIC, in these you are O.K. 

Immediately following Part k is Appendix A. Here, all of the Basic State- 
ments used throughout these pages are defined. Each statement Is explained 
sufficiently well to enable one unfamiliar with this subset to modify any 
necessary statements so that the program or programs will compile and exe- 
cute with the Basic compiler or Interpreter available with their particu- 
lar computer. Most of the Basic compilers available today, that require 
more then 10K Bytes of storage, will execute all of the programs presented 
In these volumes with the possible exception of a few of the games and the 
program "Variable". Multiple line statements are not used In most of the 
programs and only a few programs use string manipulations extensively. A 
few of the programs may require more on line storage then is available on 
some of the small micro computer systems; these longer programs will not 
be executable due to the limited amount of memory. However most of the 
programs will execute In 10K Bytes of memory or less, thereby making most 
of the programs In this Library executable in virtually any Basic speaking 
computer without any required modifications. 

Volume Mi is comprised of ADVANCED BUSINESS programs, part 5. This volume 
as well as subsequent volumes are Intended to make this Library complete 
and useful to all individuals. 

Each of these programs are written In a subset of the Dartmouth language. 
The specific subset is that which was used by General Electric on their 
635 systems. These programs have operated without problem on a variety of 
small and large machines even several of the new micro computers. The pro 
grams that use string manipulations may require slight modifications be- 
fore fully executing on some systems. These programs are mainly found in 
Part 2 — Games. 
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All of the programs in this Library were written or edited by the author. 
All of the programs edited by him were given for inclusion, "swapped" for 
traded, or made public. A few of the original authors of the "swaps" are 
not l<nown, for this I apologize. The others, unless specifically mentioned 
In the text, are presented here. In addition I would like to thank the fol 
lowing for their cooperation in making this work possible. 
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BOND: 

jy.fc.-'D , Vrv i^„ ^l,J Ai. vI jI 

This program is used to compute the price and accrued interest for bond ac- 
counting. The acquisition cost of a bond includes its purchase price plus 
its accrued interest. If the purchaser holds the bond until it is mature he 
expects to receive interest payments on a regular basis. These interest pay- 
ments are called "coupon" payments. At maturity the price of the bond is 
called "par" and is the same as the face value of the bond. In the event 
the terms of the bond allow it to be called before maturity the purchaser 
will only receive interest up to the call date. 

USERS 

Anyone who buys, sells, or trades in bonds of any nature could use this pro- 
gram. This would include businessmen, workers, housewives, retirees, almost 
anyone who has money to invest. 



INSTRUCTIONS 

Type RUN, the program will then ask you if you want instructions. There are 
three possible valid responses to this prompt. 

1. YES - it will print a description of the data inputs. 

2. NO - it will ask for the five inputs. 

3. DATA - it will print what data is present in the program. 
All data is expressed per hundred dollars per bond value. 



LIMITATIONS 

Bond will require 2K Bytes of memory for storage and IK Bytes additional mem- 
ory for execution. The total memory requirement for execution will be 3K Bytes 
or less in most systems. This program should execute without problems in most 
Basic speaking computers. The sample problem shows how to determine the final 
price of a bond that has an annual coupon of $6 a year, a principal payment of 
$100 at maturity, and matures in 12 years 5 months at 5.5% interest. 
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470 PRIMT 

47SREri NUMBER OF COUPOH PERIODS TO MflTURITY 

480 LET ri3=r11*=£+M£.^-fo 

4SSREM NUMBER OF WHOLE COUPON PERIODS TO MATURITY 

490 LET M4=IMT(M3) 
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BUILDING: 

DE3CRIPTLQIi 

Building is used to analyze the cost feasibility of building design proposals. 
This program analyzes the major costs of the building and projects them over 
the useful life of the building. It will enable the designer to see how vari- 
ous changes will effect the total cost, and the minimum rent required to make 
the building feasible. 



U S E RS 

Persons planning on designing a building or dwelling. This would include peo- 
ple who would like to build their own home and would like to get the most re- 
turn for their money and time. 



INSTRUCTIONS 

This program is well documented and will give full details on how to enter 
data and the type of information required during execution. All necessary 
inputs will be prompted. 



LIMITATIONS 

There should be no problems encountered in running this program on most sys- 
tems as long as there is sufficient memory available for storage and execu- 
tion. The program requires 7K Bytes for storage and will store and execute 
in 12K Bytes of memory. 
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L^ i ■'! i i -''ti J J h' I f'y J ? R i, Tki J ! H I Ty J ? i'l I f'tl J 

PRiriT "PROGRhM for building COST hHRLYSIS" 

PRINT "DO YOU WANT INSTRUCTION? RNSWEIR 1 FOR YES RND O FOR NO" 



,:-:fi IF 01 =y THEN 7S 

££ PRir-iT "PLEfiSE REPLY MITH i OR O. 1 FOR YES ? O FOR NO." 

24 QO TO 16 

P6 PRINT "THIS PROGRRM RNRLYZES THE FEfiSIEILITY FOR BUILDING DESIGN PROPOSRLS. " 

£3 PRINT "THE PROGRAM ESSENTIfiLLY KEEPS TRRCK OF THE NflJuR BUILDING COSTS" 

30 PRINT "RND PROJECTS THEM OUER THE LIFE OF THE BUILDING. THE PROGRRM" 

3S PRINT "ALLOWS THE DESIGNER OR BUILDER TO SEE THE EFFECT OF CHANGES IN" 

34 PRINT "CONSTRUCTIONS COSTS? OPERATING COSTS? FINANCING COSTS AND RE-" 

35 PRINT "PLACEMENT COSTS ON THE TOTAL COST OUER THE LIFE OF THE BUILDING" 
:j£, PRINT" 

II 

38 PRINT "THE INPUT REQUIRED FOR THIS PROGRRM IS AS FOLLOWS: " 
40 PRINT "MAJOR CAPITAL COSTS OF THE RRO-JECTS" 

1, BUILDING CONSTRUCTION COSTS." 

£=LHHD COST." 

3J_nND DEUELOPMENT COST." 

4 . EQL 1 1 PNENT COST . " 
'FINANCING DETAILS" 

IJIORTGflGE OR BOND FINANCING." 

Y.RMOUNT OF TOTAL CAPITAL COST TO BE FINANCED." 

3. LENGTH OF FINANCING PERIOD." 

4. INTEREST RATE, •■ 
"ANNUAL OPERATION COST" 

1. INSURANCE COST. " 

'■.UTILITY COST AND AIR-CONDITIONING COST." 

3. PROPERTY TRY RND BUILDING SERUICE COST." 

4. MAINTENANCE AND REPAIR COST i2Z ANNUAL INCREASE" 
70 PRINT" ALLOWED FOR AGING OF STRUCTURE) " 

?£ PRINT "SALURGE UALUE OF THE BUILDING AT THE END OF ITS LIFE." 
73 PRINT" 

II 

7-! FOR T=y TO 70 
76 LET ICT3=0 
73 LET RCT)=!Z1 
80 LET RCT)=0 
8£ LET H(T3=0 



4 


••£ 


pp. J K|J 




yl 


i:l 


PRINT 




-•1 

■'i 


6 


p.p J H J 




4 


3 


pp T |-'„|T 




■":. 


iS 


PRINT 




c: 


1 ;";„ 


PRINT 




f: 


i4 


PRINT 




n;:. 


!& 


PRINT 




r.r 


'C' 


PRINT 




6 


.0 


PRINT 




6 


■■CL 


PRINT 




6 


^A 


PRINT 




t'i 


6 


PRINT 


H 


€' 


8 


PRINT 


II 



84 LET Mi ! 3=U 

86 HEKT T 

lie PRIMT "INPUT m.JOR CflPITRL CCST ^ UflLUE AFTER ?" 

1£0 PRINT 

130 PRINT "EUILIilNG CONSTUCTION COSTS."? 

140 INPUT CI 

160 INPUT C£ 

170 PRINT "LfiNIi DEUELOPMEMT ...„..."? 

180 INPUT C3 

1 90 PRINT "EQUIPMENT COST. ..." 5 

£;00 INPUT C4 

810 LET C=Ci+C£+C3+C4 

880 PRINT 

2.3Q: PRINT "TOTAL CAPITAL COSTS=$"C 

£40 PRINT 

850 PRINT "IS THE PRuJ TO BE FINANCED BY: 1=110RT. ? £=BONDS. " 

860 INPUT H 

870 IF H>1 THEN 550 

880 PRINT "WHAT AMOUNT IS TO BE BORROWED? LENGTH OF PERIOD? AND" 

890 PRINT "INTEREST RATE INPUT BY TYPING ■$■ AMOUNT? YEARS? PERCENT" 

300 INPUT C5?Ll5Rl 

310 LET R1=R1.--108 

380 LET R=C5«iRl«f l+RntLl.^-(fl+Rl)tLl-in 

330 PRINT 

340 PRINT "UNIFORM ANNUAL PAYMENT REQUIRED =$"R 

350 PRINT 

360 PRINT "DO YOU WANT FINmCING TABLE PR INTO TYPE 1 YES £ NO" 

370. INPUT X4 

380 PRINT 

390 PRINT "YEAR"? " INTEREST"? " PRINCIPAL"? " BALANCE" 

4yy PRINT " 0"?" "? " "? C5 

430 FOR T=l TO LI 

440 LET IlT)=(C5-C6J«Rl 



'-i -Jh 



! 



FT PiT}=R-I CT) 



460 LET C6=C6+prT4 

470 LET P1=C5-C6 

480 IF T<>L1 THEN SSS 

490 LET PI =0 

500 IF mOl THEN 5£0 

510 PRINT T? I (T) ?Pi:T) ?P1 

5£0 \i£KT T 

530 PRINT 

540 QO T'J 890 

559 PRINT "WHAT IS THE TOTAL AMOWT OF THE BOND ISSUE? THE LENGTH OF" 

560 PRINT "THE TOTAL PERIOD? AND THE INTEREST RATE? INPUT BY TYPING" 
570 PRINT ":S AMOUNT? YEARS? PERCENT"? 

580 INPUT C5?Li?Rl 
590 PRINT 



600 PRINT "WHRT IS THE YERR THE FIRST BONDS ARE DUE. RND THE TIME" 
610 PRINT "IN YEARS BETWEEN THE NEXT DUE DATES TYPE YEARS? YEARS" ? 
6£0 INPUT 1.2? L3 

630 FOR T=0 TO L£: 

640 LET I CTJ =C5« i'R1-""100J 

650 LET PCT)=0 

660 MEftT T 



;)--L3~i-l} 

"30 IF 1 — :-s ! ri! 
I (T) = 



! 



2= IKJ 



■>y 



770 LE 1 Ufc=iJb+Ur 
790 LET PfTJ^CT 

340 PRINT "YERR"? "PRiriCIPAL"! " INTEREST" < "TOTAL" 

850 FOR T=l TO LI 

360 PRINT TjPCT) ? I (T) jPiT)+I iT) 

970 NEXT T 

390 PRINT "R E P L H C E M E N T SECTION" 

910 PRINT "WHAT IS THE TOTAL LIFE OF THE BUILDING"; 

930 INPUT L 

930 PRINT "IS THE COST OF REPLACflENT TO BE COUERED BY A SINKING FUND?" 

940 PRINT "TYPE 1 YES £ NO (INTEREST RATE 4 PERCENT)"? 

950 INPUT V3 

960 PRINT 

930 FOR T=0 TO L 

999 LET R(T)=0 

1000 LET RiT)=0 
1010 NEXT T 

1030 PRINT " INPUT THE ^ UALUE AND THE LIFE OF EACH ITEM TO BE REPLACED" 
1030PRINT"IF ALL ITEMS TO BE REPLACED HAUE BEEN ENTERED TYPE 8.0 AFTER?" 
1040 PRIMT 
1050 PRINT "FIRST ITEM > UALUE? LIFE IN YEARS DONT FORGET THE COMMA" 

I0fc.y IjO tu 1080 

1070 PRINT " NEXT ITEM ■$ UALUE? LIFE IN YEARS" 

1330 INPUT AjTI 

1090 IF R=0 THEN 1££0 

1 100 IF X301 THEN 1160 



1110 LET R3=fl^i:.04.^-i (i.04JtTl-i) ) 
11£0 LET R4=R3+R4 
1130 FOR T=l TO INTCL.-'TD^Tl 
1140 LET RfT)=RfT)+R3 

1 150 MEXT T 

1169 FOR T=9 TO L STEP Tl 

1170 IF T=e THEM 1190 
11S0 LLT__fli:T)=HCT3+n 

1 1 yy \€X 1 T 

IE' 00 GO TO 1070 

1 £ 1 y pp I f-lj 

1 opfi jr ';•:'■"-;<■ ■>! THEN 1£40 

isio F=R I NT "UNIFORM ANNUflL SINKING FUND PAYMENT FOR REPLflCnENT=$"R4 

1240 PRINT "fl N N U H L P E R fi T I N COST S E C T I n N" 

1350 LET C9=0 

iPfM PRINT 

IP 70 PRINT "WHAT IS THE RNNUflL COST OF THE FOLLOWING ITEMS" 

1380 PRINT "INPUT BY TYPING $ UfiLUE RFTER ?" 

1399 PRINT 

1 300 PRINT " INSURfiNCE COST "5 

1319 GO SUE 1480 

■\ -•■zha opTWT 'uiTTl TTV rP'-lT "5 

1330 GO SUE 1480 

1340 PRINT "fllR CONDITIONING COST„ " ? 

1 350 GO SUE 1 480 

1 -i-Ti ppTf-JT HppnpppTy jpypp II ; 

i ■..'=_"C-' P r^„ i. - i 1 E r-J_'I C*r% I I I ill tC--_» aaanBBaatavoamau ? 

i ^70 GO Si IB 1430 

1380 PRINT "BUILDING SERUICE COST........"? 

L-;90 GO SUE 1480 

1400 PRINT "MfllNTENRNCE AND REPAIR "5 

1410 INPUT Mi 

1430 FOR T=l TO L 

1430 LET M(T:!=Ml«a+i;T-L^''e)«.0£) 

1440 NEXT T 

1450 PRINT "flUERRGE TOTAL ANNUAL OPERATION COST =$"C9+M1 

1460 PRINT 

1470 GO TO 1510 

1480 INPUT C8 

1490 LET C9=C9+CS 

1500 RETURN 

1510 PRINT "D E P R E C I T fi T I N IS COMPUTED ON STRAIGHT LINE" 

1580 PRINT "BASIS. WHAT IS THE SALUAGE UALUE OF THE BUILDING AT YEAR"L 

1530 INPUT SI 

1 540 LET D3= C C 1 +C4-S 1 ) -■•"'L 

1550 PRINT "HilNUAL DEPRECITATI0N="D3 

1560 PRINT "INTEREST LOST SECTION" 

1 =,"?pi pRTf-iT 

1530 PRINT "WHAT AMOUNT OF MONEY INUESTED IN THE PROJECT SHOULD BE" 
1590 PRINT "USED FOR THE INTEREST LOST COMPUTATION"? 

1600 PRINT 
1610 INPUT HI 



j ji.pH Ti- Hi <' >r'— t ;r"! i Ht f-j iftsCi 
1 fc'r-.;1 KEfll' It! 

1640 LET Fl=Hi*^ ( I£.^'iyi3} *:L 

1650 PRINT "INTEREST LOST flT "I?"v INTEREST RRTE =$"F1 






J! -- ti iJi I: 



IS nOi THE CORRECT UfiLUE. THE flMOUr^T REQUIRES=$"C-C5 
1 f0ki P'PINT "nHICH is the TOThL COST OF THE PROJECT $"C"LESS THE" 
1719 PRINT "HMOUNT FIMRNCED $"C5 "INPIJT THE CORRECT UFlLUE fiFTER" ? 



.1. i' Z''-!' 


i-jiJ lU it 




f='RINT 


i 7'=;:;i 


PRINT ='T 


1 7 m 


INPUT y^ 


1770 


LET T&=t 


1 730 


LET Rfc.=t 



rOU NhNT the TRBLE printed out type 1 YES £ riO' 



FT 



1 330 


LET 0=^1 iT)+prTi 


1 3-^10 


IF T<=Li THEN 1370 


I 050 


[_£ i P 10') =M 


1000 


LET R=0 


1070 


IF :--:3<>l THEN 1900 



1 9 i LET T5=R+R ( T ) +i'1 i T ) +C9+K+IJ3 

1930 LET E=E+P(T)-D3 
1930 IF X401 THEN £010 

1900 PR I NT "LORN PhYMENT"R 

1 9 70 PR I NT " REPLHCEMENT '= R ( T ) 

1930 PRINT"ORERflTING EKPENSE"MfT)+C9 

1 '?90 PR I NT " EQU I TY " E 

£000 PRINT"fiNNURL C0ST"T5 

£'010 LET T6=Tb+-T5 

£030 LET R5=R5+-R4 
£040 LET n5=M54-N(Tl+C9 

£060 PRINT 

£070 PRINT 'TOTfiL LORN PRYMENTS. ..... =.$"Rb 

£030 PRINT "TOTRL SINKING FUND PfiYMENTS. =$"R'=i 

£090 PRINT " TOTR! OPERATION COST =$"ri5 

c'. 1 yti 'r'r'. I n t 

£1 10 PRINT "TOTAL COST.. ... =$"T6 

£1£0 PRINT 

£130 PRINT "THE MINIUM RNNURL RENT =*:" fTfc+Fl) ./LATHIS IS THE" 

£140 PRINT 'T0THL_C0ST"T6"PLUS THE INTEREST LOST (RT 4 PERCENT! "Fl 

PI'jy rKlN'i 'TnUIDLD BY THE LIFE OF THE ENILDINC'L 

999y h'riB 
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COMPOUND: 

DESCRIPTION 

This is a very versatile program for it will compute the effective interest 
rate compounded over any desired period for either a borrower or a lender. 
Additionally this program will calculate the compounded interest rate over 
the shortest period between payments in compliance with Regulation Z of the 
Federal Reserve Systems "Truth in Lending Act". 



USERS 

Persons who either borrow or lend money will be able to utilize this program. 

Several repayment plans may be compared to determine the most economical loan 

to take or let. 



INSTRUCTIONS 

Type RUN to use the program. Compound will prompt all required information 
necessary for operation. For additional information list the program. 



L IMI TAT IO N S 

Compound will require 5K Bytes of space to store the source code and 9K Bytes 
of memory will be required for storage and execution. 
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-JE:SL;F'II-'i'IOn — COMPUiLb THE INTEREST RATE REGRRDLESS OF 

Rr! V'MEMT STREfiM IN flCCORDflNCE WITH REGULfllON Z. 



ibUKEM iNSlRUClIOHS — iYPE N:UM TO UoL. ALL NECESSflRY INFORMflTIOH 



J, :>;i5!^. n-ii 



££0; THE EXCESS OF PRYMENTS OUER LORN flMOUNT IS S#####t#.## 



£90 PRINT "Pu SHORTEST PERIOD BETWEEN PRYMENTS" 
300 PR I NT " i DRY ? WEEK ? HfiLF MONTH ? MONTH ? QUARTER ? " 

THE (50 






c'yy 

4 fifi 






■-I ,t. 



:iMiHY" T- iFN 440 

^"HRLF MONTH" THEN 

- r it ill In I h?ril1 JZ'-i-i 

= " QUARTER'' THEN 568 
:"hF|LF YEAR" THEN 5' 
"YEAR" THEN 6£0 
"SPELLING ERROR! 

Pfi 



FRY HGHIN= " 



480 LLi 
4 90 GOTO 



550 GOTf 
5!-.0 I FT 



_-• X B !_--• 
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::iyo yufu b4-o 

i-,l4Pi i FT HFi=? 



THEM 1180 

3. HMOllNT OF PHYriENT RND PERIOD (S) OF PfiYMENT" 



660 PKlNT "CL.G. 100?l?£jy! 



; ^ i-". I 



-=RINT "INPUT HFTER RLL PfiVMENTS HflUE BEEN ENTERED"? 

FT T = 1 



irlJ I 1= 

1 -| =;:i THFT-i 



=GCK1) 



I* -I 



T 1 = T — 1 

.1=5 THEM iiS0 



860 PRINT 'H. COriPuUHDIHG PERIOD" 
870 PR I NT " f Dfl I L Y ? HEEKLY j SEM I MONTHLY ? MONTHLY ? " 
880 PRINT ^'QIJHRTERLYjSEfllHNNUHLLY.fiHNURLLY? " 
890 PRINT "TIME TO PFiYMENT)"; 

900 PRINT THE i 50) ? 

980 IF R$="UflILY" THEN 1040 

930 IP Rs=" WEEKLY" THEN 1060 

940 IF Ps=" SEN I MONTHLY" THEN 1080 

950 IF Rs="MnNTHLY" THEN 1100 

960 IF Rs-"QUHRTERLY" THEN llS© 

970 IF R5="SFMIfiNNUHLLY" THEN 1140 

930 IF R$="hNNMhLLY" THEN 1160 

990 IF R$="TInE TO PfiYMENT" THEN 10S0 

1000 PRINT "SPELLING ERROR! TRY HGhIN."? 

1010 GOTO 900 
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i0ye GOTO 1170 

1 J. "'iiti L_E- 1 R 1 = 1 c' 

1 1 19 GOTO 1170 

11c;0 LET Ri=4 

1130 GOTO 1170 

1 140 LET Rl=£ 

1 150 GOTO 1170 

1 160 LET Rl=l 

1170 IF U=4 THEri 1380 

1 ISO PRINT 

1190 PRINT "5. WOULD YOU LIKE TO HRUE" 

1P00 PRINT "THE_SCHEIiULE OF PRYMENTS PRINTED"? 

1£10 PRINT TAB (50 J ? 

1PP0 INPUT T> 

1£30 IF T$="YES" THEN 1£80 

1£40 IF T-|:="HO" THEN 130© 

1£50 PRINT 

l£b0 PRINT "ENTER ONLY THE WORDS .^YES' OR 'N0'= TRY RGB IN. "5 

1 £70 GOTO 1£10 

1£80 LET Kl=l 

1£90 LET x£=Il 

1300 PRINT 

1310 PRINT 

1320 PRINT "PHYMENT'S"PHYMENT'S"END OF" 

1330 PRINT "NUMBER"? "HMOUHT" 3 F5 

1340 PRINT 

1350 FOR l=Hl TO X£ 

1360 PRINT USING £30? I ? D( I) PCC I) ^H 

1370 NEKT I 

1330 LET R=l 

1390 LET L3=0 

] 4 00 LET B=0 

1 4 i y poR C= 1 TO 5 

14£0 LET Q=. itC 

1430 LET E=E+Q 

1440 LET E=0 

1450 FOR 1=1 TO II 

1460 LET E=DiI)*;Cl.^i (l+B^R}t((C(D«R)/-365) 1)+E 

1470 NEXT I 

14£€t IF E-Pe>0 THEN 1436 

1490 LET B=B-Q 

1500 NEXT C 

1510 IF B=0 THEN 154© 

1520 LET B=INT(E«1000+,5)-^i0 

1530 GOTO 1560 

1540 LET B=-.8 

1550 GOTO 1410 

1560 IF L3=l THEN 1640 

1570 PRINT 

1530 PRINT 

1590 PRINT "RNNUflL INTEREST RflTE COMPOUNDED RNHUflLLY = "?e;"°=" 
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1600 PRINT 
1610 LET R=R1 

1630 GOTO 1400 

1650 PR I rfr'"HMHUHL' INTEREST RhTE COMPuUHDEIi "°^f-:^-V = "?B;"%" 
1660 PRINT 
1670 LET ia=^0 

1680 FOR 1=1 TO 11 

1710 PRINT USING ££0? W-P@ 

J 740 PRINT 'ndOULD YOU LIKE TO CHflNGE SOME OF THE INPUT DfiTfl"? 

1 750 pp I N J TRE ( 59 i I 

J 77vi IF 145= ''fiO" THEN 1998 
1780 IF W£="'tES" then 1888 

1 "7QPi ppTNT 

iyyy RRIHT "ENTER ONLY THE WORBS 'YES' OR 'NO'. f RY flGfilN."? 

1880 PRINT 

1840 PRINT "WOULD YOU LIKE TO CHfiNGE" 

lP=;ri PR TNT ■'•■ i„ ONOUNT" 

JpAH PRINT " ?] PERiuD BETWEEN PRYMENTS" 

1H70 PR TNT " 3. PflYMENTS SCHEDULE" 

j PPy PRiriT " 4= CONPOUNDING PERIOD" 

1O90 PR TNT >^ 5„ hMOUNT & pflYMEHTS SCHEDULE" 

Jyyy PRINT " 6. ALL OF THE INPUT DRTR" 

j 930 PR I MX '■■ fnTE:R 1 j 8 ? 3 ? 4 ? 5 OR 6 " ? 

i 9 40 PR I NT The i 50 3 ? 

1950 INPUT U 
I960 PRINT 

1980 ON U GOTO £40? £90? 650? 860? £40? £40 
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cijiiPOLir-in 



F'uri 



1, HMCiUHT OF LCiHr-l 

£. 9! inRTi:ST PEP 10 [J DI;:T^^IEEri F'H'r'IIEHTS 

■DFiY? WEEK? nOrrn-b Q! IFlRTER? HALF 'r'EHR 

YE tip? HhLF i'luMTPL 

3, HllfiiJMT OF PHYMEriT Hi IJi rfcPIUliS OF PflYilEMT 
i'E=, G» IViO;! 1 H c's 3? 4? 5 5 0) 
];MPijT ci fifTtR liL.I PFi'i'MEirTs I-IROF- BEEM irir-ITEPED 



L COHpiiOOLlhl'. lYi'IliTl 

JO] Li ' !i-H 1 ',% ■ i OO'ir.nTH! Y? i'lONTHLY 

iMi!v|r K ■,',■ [ OJ'iiiOLIoLLYnHririUFiLLY 
~l I ML In l-'H','OuiT = 

5. MiJULIi YOU Lli-E TO FIFlUF 

TFIE SCHEDULE OF PHYilEilTS PPH-ITEH 



■?50Oi3 



?HFiL,.F MONTH 



:'i~!yoii c! ? 4? t' 3 y? ly 

?£0g 5 1 £ ? 1 4 3 J 6 ? 1 8 ? £0 J ££' 
':''L;!y ? i: !4 ? i~'Fi ? £o ? ."'y 

? 1 Ofi 3 1 ? :3 3 5 ? 7 3 '3 3 1 1 J 1 3 3 15 

? 100,13,15,17,19 
7100,21,23, 25, 27 
? 100,29 
? 1000,36 
? 



^'SEMIMOHTH! Y 



\u 



FiilNUFiL liiTFF'EiYT FilFlTF; COHPOUriuEl! FiriflUFlL.LY = 

firii-iUHL I r-iTERE£,T FflTF COMPOUI fDEIj SFH 1 1 iOriTHi r 

IHt rYF:?:9S ijF' F'Fi'T'rIEriTS 0'.,iF:R i^jjFiU Rr'IOUNT IS 



1 £ . £ 



■itiy.yy 



.■JiJULlJ 't'OU LIKE TO CFIflMGE SOME: OF THE INPUT IiFlT 



?M0 
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CYCLIC: 
DESCRIPTION 



Cyclic calculates seasonal coefficients for observed series of two cycles, 
Once the series of the two cycles are entered in the program it will com- 
pute the seasonal coefficients and explain the differences between the 
trend and the observed series. The output data is represented in a plot 
of coefficients versus period, months or quarters. 



USE R$ 

This program can be used by store managers to determine how a particular 
item is moving and what to prepare for in the way of stocking for the 
coming season. 



JJJ STRUCTIONS 

Before the program is run, enter your data in lines 801 to 899. Enter the 
data in the following format: 

801 DATA P,#,S 

802 DATA observation for Cycle #1 

805 DATA observation for Cycle #2 
where 

P = the number of periods per cycle (13max.) 

# = the starting period number 

S = sorting code (l=ascending order; 2=descending order) 

(January, February, would be in ascending order) 

(December, November, .... would be in descending order) 

The observed data for the two cycles, one observation for each period for 
each cycle, are entered next. This data could for example be the quantity 
sold for the month, and so forth. Then type RUN. 



Lines 535 and 560 use the ABS( ) statement. Print Using statements are used 
extensively throughout this program, starting in line 680. The source code 
requires 3K Bytes for storage and Cyclic will execute in 4K Bytes of memory. 
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„ 1 i. 



153 PRirff 

155 PRINT" CR ' SEflSONRL COEFFICIENTS FOR CYCLE 1" 

160 PRINT" CE s SERSONflL COFEFFICIENTS FOR CYCLE £" 

165 PRINT" CS : SERSCWRL COEFFICIENTS FOR BOTH CYCLES" 

170 PRINT 

175 PRINT 

180DiriU(30l 

1 SSRERDH J I ? M 

190 FOR J=l TO £*N 

195REflIiUfJf 

£00ne:-<tj 

aOSDIMR f 151 , B ( 15) ? C ( 151 ? P f 15) ? ( 15) ? K ( 15) 

£■ 1 LETS 1 =S£=D 1 =D£=Ii=0 

£i5F0R.J=iT0N 

£ £0 LETS 1 =S 1 +-U ( J ) 

£ £ 5 LE:TS£=S£+U \ J+N ) 

£ 3bi LETK ( J ) =U i J ) +U ( J +N ) 

£35ne:>::tj 

£4y LETSi=Sl---N 

£45 LETS£=S£^-N 

£50 LETS==5*^(S1+S£) 

£55 LETD5=(S£-S1).-^N 

£ 60 1 FS«D5=OTHEN390 

£65FORJ=lT0N 

£ 70 LETIi6=S+ ( J-N- . 5 ) »;ii5 

£ 75 LETIi7=S+ i J-- , 5 ) *ri5 

£80 LETl!8=l!6+Ii7 

£S5IFD6*^D7»;DS=0THEN 318 

£90 LETPf Jj=Ui:j).^-D6 

£ 95 LETO f ,J I =U C J+N ) .^117 

300 LETK(J)=K(J)^'-Ii8 

305GOTO3i5 

3 1 LETP f J ) =0 r J ) =K ( J ) = 1 

315 LETIil=Iil+pi:j) 

3£0 LETD£=Ii£+0!:J) 

3 £5 LETIi=B+Ki;j) 

330NEKTJ 

3 351 FD^ep 1 5«I.i£=OTHEN390 

340FORJ=1TON 

345IFM=£THEN3t.0 

3 50 LETL= 1 + J-£-N"*: • I NT ( ( I + J-£ ) .m\ ) + 1 

355G0T0365 

3 60 LETL=H+ 1 - J-N^^ f I NT ( ( N+ 1 -J ) .^"N ) ) + 1 

3 65 LETR ( L ) =P i J ) «N.-Ti 1 
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379 L FTB C L ) =0 ( J J m-]^'T\P 
375 LETC ( L j =K C J ) ^H-"D 

ssariErtTJ 

:385GOTO4i0 

4!D5DlPlE$Ci5i 

41a PR I NT "PERIOD "f 

4 1 ^FflR. 1= 1 Tni-I 



4 50 1 FM2 >fl ( J j T"HEN46y 
4, £,0 1 FM£ >B f J ) THEri470 
4 70 T FN 1 <: R i; J 1 THEM480 



:i oiSYFMI -: 


;:b( J] 


I THEr 1490 


iH5 I FTI- 


1 1 = '^i 1 


f- n 




1 





515 LFTh£(5)=" E " 

535 LET k =£tIMT I'LOG C INT CMP-Ml + l ) ) /'LOG l£ J +. 00005) .^£6 
54yP0RJ=K«Ir!T fM£..--"K+l j TOK^^INT CM1^"K:-1 ) STEP-K 

545p:'|?TrfnjSIHG790? j; 

550FnR.Jl = iTOri 

i:z-'~nz'- i i — r i ~:_ -: 

-...'■ J -.J L.r-. ! -JiZ,— 1 

560IFhESCJ--H(J1 j } >K.'"£THEN570 

57LiTFflBS(.J-E(Ji:i ) >K/£THFN580 

'j r''3 LL i .Jc!"'4"i"-Jc' 

5 801 FflBS ( J-C ( J 1 ) 1 >K ••■"8THEN590 

•r:^ 90 1 F ( J- 1 3 1 £•+- ( J£- i 1 1£ >K^K.^-£THEHb0U 

600 LETS? ( Ji) =H> ( J£) 
605IFJ£=iTHENbi5 

610 LETJ3=Ji 

f, i =;wfrv"T. 1 1 
6£0FOPJl=lTnj3 
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6£5PRIMTB$fJl) ? 

bSHHEXTJl 
635PRiriT 

45MEyTJ 
50PRINT 
55PRiriT 
SepRIHT"*^ SEfiSONflL COEFFICIErfTS »^" 

bSSPRINT 

678PRI!iT"*^ CR "; 
b?5F0RJ=lT0H 

8 PlF'R T NTUS I NG800 ? fl C J ) ? 

£!5HE!-!TJ 

yyPRINT 

y5PRIfiT"»^ CB "'■ 

uyFORJ=iTOH 

05PR I NTUS I r-IG890 5 B i J ) ? 

1 yNE;^;T J 

SOPRIMT"^ CS "? 

;E:5FuRJ=lT0N 

30PR I NTUS I NG800 ? C ( J i ? 

10PRINT 

h5 print 

50 PR I NT "PERIOD "? 

55FnRJ=iTuN 

60PR I NTUS I NG795 ? J ; 
7b5NEKT.J 
?70pRInT 
775PRINT 
780PRINT 
785PRINT 
790:#i*##.## 
795; ### 

9m0 END 
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DECISION l! 

D E SC RIPTIO N 

This program makes a lease-buy decision for you. It uses the Bower-Williamson 

method of analysis and assumes that if an item is purchased the item will be 

depreciated by the sum-of-the-years-digits method. The total lease costs are 

then compared with the total costs to purchase. The program will then select 
the method that offers the greatest savings for you and explain its reasons. 



U SERS 

This program is of use to anyone who wants to weigh the costs of purchasing 
an item outright when they have the option of leasing the same item. A prime 
example of this would be the costs involved in purchasing and assembling a 
micro computer system versus the cost of leasing a system already up and run- 
ning. While this program has considerably more value for businesses then in- 
dividuals it is definitely not limited to this market as the above example 
clearly demonstrated a rising issue in todays world of the micro computer. 



All of the data for the problem must be entered before the program is run, 
in the following format: 

120 DATA P,T,R1,R2 

121 DATA M,L,S1,S2 

122 DATA E1,E2,Y,J 

123 DATA X,X1,X2 

These 15 quantities are defined in lines 26 through 67 in the program. List 
the program for additional information. After your data is entered, type RUN. 

LIMITATIONg 

This program uses the Print Using statement extensively starting in line 405. 
The source code for this program is 6K Bytes long and should execute without 
incident in 8K Bytes in most systems. 
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lit, L I, ■: lUi 



3 BRSIC ppnGRfiM COMPflRES R LEASE WITH PIJRCHRSE OP EQUIPMEMT? 
LIS IMG the: BOMER-WlLLIflMSOM METHOD OE RMflLYSIS. THE 
EQIJIPMEliT IS DEPRECIRTED UM SUM-OE--THE-YEPRS Til GITS, 
RMli THE HPRpnPRIRTE IMUESTMEMT TRX CREDIT IS TRKEMs EuR 

THE PURCHhSE hLTERNhTIHE. 

iifiLUES EuR THE EOLLOWIMG 'JhRIRBLES MUST BE SUPPLIED flS DRTR 

P ::- THE PUPCHRSE PRICE OE THE EQUIPMEMT 

T = THE LESSEE'S IMCuME TAX RATE 

R1= THE INTEREST RATE OM R LORr^? COMPOUriDED SEMI-RNNURLLV 

RR= THE OPPORTUMIT'f RRTE THAT CAM BE ERRMED? RETER TR^ES? 

OM NEW IMUESTMEMTS? COMPOUMPED SEMI-flHNURLLY 
M = THE MONTHLY RENT? PflYfiELE IN RDURHCE 
L == THE DEPRECIRBLE LIEF OE THE EQUIPMEMT? IN YERRS 
Si= THE SRLUflGE MRLUE FOR TftX PURPOSES 
S£= EXPFCTED flCTURL SALURGE URLUE? MLiST BE LESS THRM P 

Ei= r::-;pEMSES of mrkimg the LERSE RGREEMENT 

tP= RMMURL SRUIMG IN EKPEMSES DUE TO THE LEASE 
Y = ElKPECTED DURRTION OF THE LEASE IM YEARS 
IP. J = MINIMUM DURRTION OF LEASE IM YERRS 

13. K = TiiE NUMBER OF THE URPIRELE FOR WHICH fl SEMSITIUITY RMALYSI" 
59REM IS TO BE DOME? IF MO RMRLYSIS? 1 IF OM PURCHASE PRICE? 
61 REM 3 Ii- INCOME TftK RRTE? 3 IE INTEREST RATE? ETC. 
63REM 14= Yl = THE LOWEST URLUE FOR THe' ttHRIRELE SPEC IF I ED ' IN 13. 
biKEM 15. Y£ = I HE HIGHEST URLUE FOR THE LiRPIRBLE SRECIFTED tn i"; 
67REM 

71 REM LINES 130-1.33 CONTAIM DRTR FOR R SAMPLE RUM. 

!'■' e'^kEM ^~- '^~ '^~ '■''■ ^'- ^^- '^- '■^^ '^'. '^- '^-- '■^-- '-^^ '-^ '^i '■^. '*\ '^^ 

79REt'1 

100 READ R?T?R1 ?R,3?M?L5Si ? SR^ El- ER- Y-.. i, ?<■= Y1 ' YR 

111 DIM A^^CIRI 

1 IR FOR H=l TO IP 

114 RERD H^(H) 

117 DRTR PURCHASE PRICE? TflXRflTE? INTEREST RRTE? OPPURTUMITY RRTE? MOM. RENT 
] lo liRTR DEPRECIRBLE LIFE?TAft SALURGE? ACTUAL SRL'-iRGE ' LERSE EI^^PENSE 
119 DHTR RMMURL SRUIMG? LIFE OP LEASE? BASIC REMTfll PEP TOD 



1 7REM 




1 '::-ntJ"l 




r' 1 Kt.n 




■3 3 REM 




v,iPrM 




35REM 




RRREM 


i,i 


37REM 




P9REM 




3 1 re:m 


i 


33P|rM 


C 


3 5 REM 


•"t 


3 r'Yt.M 


..■i 


39REM 




4 1 REM 


ET 


43REM 


■S. 


4 5 REM 




47REM 


H 


4 9 REM 


9 


5 1 REM 


10 


";3REM 


11 



-. r S-- 
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1 £0 DHTh fc.6ibiei0j . 48.' » y475? . 1 

1 iE' i DhTh 990 J 1 © J 50£10 ? 1 0000 

1 ££ DRTfl 1 0£i0 5 35£10 ? 8 j b 

1£3 DflTH SjSj 18 

130 IF v=0 THEN 170 

140 PRINT "BO YOU WFiNT THE SENSITIUITY fiNflLYSIS ONLY"? 

150 INPUT N*^ 

160 IF N$="YES" THEN £80 

170 GOSUB 430 

180 PRINT "DO YOU WftNT TO SEE THE FLOWS"; 

190 INPUT m- 

£00 IF Hs="YES" THEN £30 

££0 GOTO £40 
£30 GOSUB 680 

!:i40 GOSUB 760 
£50 PRINT " 



,::>73 XF >::=0 THEN 1900 
£80 PRINT ". ' 



SENSITIUITY fiNflLYSIS ON "? 
£90 PRINT H:?fX) ? 
300 PRINT " 



3£0 PRINT TAB (30) ; "NET fluUflNTflGE OF LEASE 

II 

330 FOR F8= TO 10 

340 LET F9=-l 

350 RESTORE 

360 READ P?T?Ri?R£!NjL?SijS£jEijE£jYjJ5Kj>ajX£ 

370 GOSUB 1440 

390 GOSUB 760 

400 PRINT USING 405? TAB (30) JHl+oe 

405; ######.## 

410 NE>^T FS 

4£0 STOP 

430 --RINT " 

COMPARISON OF LEASE WITH PURCHASE 

II 

440 PRINT 'PURCHASE PRICE $";pj"TAX RATE" 5 T 

450 PRINT "INTEREST RATE"? Rl ? "OPPORTUNITY RATE";Re 

4 60 PR I NT " MONTHLY RENT " ? M 5 " HEPREC I ABLE L I FE " 5 L 5 " YEARS" 
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470 PRINT "SRLlJFlGE FOR TfiK $" JSl ? "EXPECTEIi sflHiflGE $"?s£ 

488 PRINT "ErtPEnSE OF RRRflNGING LEfiSE s"JEl 

490 rKiNT "HNNUfiL E:^-^:PEMSE ShUIHG DUE TO L.EflSE £"?££ 

5yM PRINT '^EXPECTED UURFiTIOH OF LEPSE" ? V? "VFRRS" 

510 PRINT "MINIMUM DURRTION OF LEfiSE'^ ? J? "YERRR" 

5£y IF "^=0 THEN 66© 

530 PRINT "9ENSITIUITY RNRLYSIS OH "5 

540 ppjp^T f\<{X)i 

550 PRINT " pIITH R RmNGE OF" ? Xl P "TO" ? ^^P 

iS60 PPiriT 

f, 70 PFTI !RM 



A 90 PRINT TRE (503 5 "BASIC" 

700 PRINT TREi40:i J "OP'G FLO" rTRE (50) ? "CASH FLO" ? TRBibOi I "BRSIC" 

710 PRINT TREi40} ? "BIFF- CE"? TRECSOi I "SflUIHG" 5 TflE(60j 5 "CASH FLOW" 

7c:0 PRINT TRE(30) ? "LORN"? TRB{40J I "WITH" ? TAB iSS) ? "WITH" ? TAB (60) T'DI? 

r-'30 PRINT "TERR" J TAB (10) ? "RENT"? TAB (£0) ' "BEPREG'N" ?TRE 1 30) 5 "INTERE-^ 

735 PRINT TRB(40i 5 "LERSE"rrHB(50);"LEflSE"n"RB(6e);R£ 

1"' 4 y pk I n f 

750 RETURN 

7 iS0 LET R4 = ( 1 -i-f^. i ■-■■£ ) •f- ( 1 -■■■'S ) — I 

770 LET Pl= (n--"R4) *^ ( 1^94- ( 1 .-••■( i+R4) f ( 1£^:J-T 1 ) ) 

I ~":j I'r -} ~" h-f ! i~Ie_J i '"=14:"' 

Si 60 FOR K = 1 TO Y 

970 LET B = (P£-Sl)«£'«(L-K+l)^'(L*4L-t-l ) ) 

IF D <=^ P£~Si-Dl THEN 900 

LET U = P£-S1-B1 

IF B>=0!HEN 9£0 

LET li=0 



>C. AT" 

>T"5 



I—' 


^yo 


'3 


i90 


C\ 


00 


Ci 


10 


9 


30 


Ci 


"1=^^ 


'5 


40 


C) 


50 


'::' 


60 


9 


70 


9 


80 


9 


90 


1 


000 


1 


310 


1 


090 


1 


030 


i 


040 


1 


050 


1 


060 



i 



IF K > J THEN 
FOR I = 1 TO 



1 M 1 =:; 



LET Ki - R:4s=^CP-BP) 

t r — r Tit A V' Z' t;> -f 



IF K>1 THEN 1070 



LLT 83 = 
GO TO 1110 
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1,070 IF KXV THEN iilw 

1080 LET F = F£-S£ 

1090 LET S3 = Se - iP£-Di) - E£ 

1110 LET C= CMi+SS-D-Kn^T+F 

ii£0 IF K <=J THEN 1149 

i 130 LET C = c-ni 

i 1 40 LET y) 1 = C-" i 1 +R£y ■£ 1 1 f Pm<- 1 1 

1160 LET Ui = INT (M1+.5) 
1170 LET U£ = iriT(D+,5) 

l£i0 LET U6 = INTCUi+.5J 

i££0 IF F9=-i THEN 1309 

1££5 PRINT ThE(0)5k? 

1£30 PRINT USING l£3£j ThBC IW) jUI ?TflE (£0) 5 U£; inS (303 JUS? 

1 pop J .-jiij:*!!:-!!:!!:!!: 

liii PRINT USING l£3£!THBi;40} ;U4?ThEi:50) jUSjinBlSe) ;u6 
1240 LET Ii=Il+Ui 

1 £70 LET I4=I4+U4 

1300 NEXT K 

1O10 TF F9=— 1 THEN 1340 

i3£0 PRINT USING ISPS? TRBC 10) ? II jTRBi£0) J I£; IRE (39) ? 13? 
r3££ PRINT USING i3£3? TREC 40) ? I4JTflE(503 515; TRB (fcy ) ? 16 

1.340 RETURN 

1440 LET W=Al+(F8.--10)*^fK£-Xl) 



GOTO 14605 14905 ISE'Q? 1559? 158©! 1610? 1649? 1679? 17ei0? 1739? 1769? 179£1 

r^j i.i 

i ,--| OC-j iZ'LTTl |C=N 



fPN 



-k4 

i 

1530 LET Ri=W 
1540 RETURN 
1550 LET R£=W 
1579 RETURN 

1600 RETURN 

i i- 30 RETURN ■ 
1640 LET S1=H 
1 660 RETURN 
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RETURN 

LET E1=W 
RETURH 

:£=w 



..C- ! 



i?5y retukh 



I t Oii 



l; 


''Sy 




"' 90 


If 


510 


li 


;;£0 


1-; 


=;30 


4. '. 


-:35 


ir 


M© 


If 


:'50 


Ik 


?55 


If 


:';60 


i ■■ 


=;70 



-Ti !C= 



IS 
1 ■= 



RETURN 

LET J=i^l 

RETURN 

PRINT 

PRINT USING 1335? Hi 

; FINfiNClHL RDURNThGE OF LEASE 

PRINT 

PRINT USING 1855? UP 

; OPERhTING HiiUfiNTflGE OF LEfiSE 
pp. J N J 

PRINT USING lS755fli+UP 
^ NET hDURNThGE of LEASE 
RETURN 
END 
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DECISIOM 1 



l~'ki TiRTFl 60000? .48? .0475? . 

1£1 DRTR 900? 10? 5000? 10000 

1 ££ DFlTfl i 000 ? 3!500 ? S ? 6 

lc'3 iJFlTFl F,5 Bi 18 



hlJI'l 



iO YOU WFiliT THE SENSITIUITY flNRLYSIS ONLY ?M0 



COMPRRISOM OF LERSE WITH PUF^lCHRSE 



.1 
YERRS 

■$ 1 0000 



oiiPfHpqr pPir;F' > bOOOO TRX RRTE .48 

iriTEREST RATE ,0475 OPPORTUNITY RRTE 

MOMTFILY REt-lT 900 DEPRECIRBLE LIFE 10 

'SRLORGE FOR Tfl>^; ^ 5000 EKPECTEH SRLORGE 

n^PFllSF' OF RRFlflriGIMG LERSE ^- lOOO 
RNNUFIL E^^PEH':.E SfllilNG UUE Tfi i..,,EFlSE: t- 3500 
E;^^PECTETi DURRTIOli OF LERSE F; YERRS 

ill HI MUM DURRTIQM OF' i ERSE 6 YERR'=; 

SEIiSITIUriY HiiRLYSIS GM TiEPREGIRBLE,, LIEF MITH H RRNGE OF' 

DO "r'OU MFlMT TO SEE THE F! OWS SrHI) 



TO 



FiriRNCIRL flliiJuMTRGE OF LERSE 
OPERRTIMG HDUHiTrflGE OF LFT-iSE 

mf:!' Fr[iuFirnFii,.F: of lf fisf' 



+15.9? 
?S'0 . £!3 
406.74 
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IslEl V i w 1 ' 



Decision 2 is similar to Decision 1 in that it also determines whether to buy 
an item or in this case to make the item. This program is oriented toward vol- 
ume production or purchases of such items as: subassemblies, components^ fin- 
ished assemblies, etc. The overall cost of producing the item; including over- 
head, taxes, etc. are compared to the purchase price for the item through an- 
other vendor. 



USERS 

This program is of most use to manufacturing concerns. The concern does not 
have to be large to use this program. As long as more then one item is being 
used. Decision 2 will show you the most economical way to go. 



INSIR. U£ IIQ N S 

To use this program type RUN. The program will list all necessary instructions 
for entering the 11 data inputs if you respond YES to the first question. List 
the program for additional instructions. 



Lines 290 thru 370 contain the FNP and FNEND statements. Lines 1450, 1950 and 
2280 contain ON ^GOTO statements. Starting in line 1500 the Print Using state- 
ment appears and is used extensively throughout the rest of the program. Deci- 
sion 2 should store and execute in 9K Bytes of memory. 



J. 



X 



28 



j:r;g|Pr;r.i DESCR IPTIOM — MAKE OR BUY DECISIONS 

1 oi^iPrri TrisTfi'lirTlMNs — type "RUN" TO USE 

1 cigpETpi iriSTRUCTIOHS RRE PROUIDED IN PRINT STATEMENTS 

e40REn 

ibMREM INITlHLIZfiTION 

£' '3£t DEF FriP ( C ? K ) 

300 LET Q4=0 

310 LET x= ( INT ( !'>v*i00) +=.5n-^( 100) 

330 IF HBSiXXl THEN 350 

340 LET FNP=FNP"IHT 1 (LOG (RES iX) ) +5E-7) .^1-00 ( la) ) 

350 PRINT ThB(FNP) j 

360 LET FtiP=X 

■■::i7Gi F'NFNTl 

380 Uin fl!;£5) jEC£5) !C(£5) ?DC£5) 

400 print'' "WOULIi YOU LIKE INSTRUCTIONS FOR ENTERING DRTfl"? 

410 PRINT "(YES OR NO)"? 

430 INPUT 03$ 

430 IF Q3*="YES" THEN 5£0 

4 m IF Q3$="N0" THEN 470 

4:=;ij PRINT "iH'iRLID ANSWER RESPOND YES OR NO"? 

470 PRINT "ENTER I TENS 1 THROUGH 11" 

4og INPUT 11? I£? 13? 14? I5j 16? 17? 18? ly? Jl? J£ 

490 LET Q4=l 

510 GO TO 740 
5£0 PRINT "I TEN" 

n:::;-;p. ppTNT " NO = " 
c:- 4 "^ C--P T slT >' " 

550 PRINT "1. WHAT IS THE COST TO BUY A COMPONENT F.O.E. YOUR PLANT"? 

560 INPUT II 

^-^CH PPTNT "£„ ilHAT IS THE COST TO MANUFACTURE A COMPONENT IN YOUR PLANT" 

580 PRINT "■ INCLUDING DIRECT MATERIALS AND LABOR BUT NOT INCLUDING" 

590 PRINT " OUERHEAD"? 

f.fifi INPUT I£ 
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613 PRINT "3, WHAT IS THE INITIRL IMUESTMEMT I COST OF THE EKTRfi" 

6£0 PRINT ■■ mCHINERY THRT WOULD BE HEEDED IF VOU WERE GOING TO" 

630 PRINT " MRNUFflCTURE THE COMPONENTS)"? 

640 INPUT I "3 

650 PRINT '^4= WHHT IS THE LIFE OF THE INUESTMENT IN YEflRS" ; 

670 PRINT '=5. WHAT IS THE ShLUhGE UfiLUE OF THIS INUESTMENT" I 

680 INPUT I'r.i 

690 LET CiI4)=-T5 

700 PRINT "6„ WHICH METHOD OF DEPRECIRTION DO YOU WISH TO USE (SUM-" 

710 PRINT -" OF-THE-YERRS-DIGITS (DsSTRRIGHT LINE ( £) ? OR DOUBLE" 

7£0 PRINT " DECLINING ERLliNCE (3)? ENTER Is £ OR 3)"? 

730 INPUT 16 

740 ON 16 GOTO 753? 790? 798 

760 FOR S5=iTni4 

7^70 LET S4=S4-i-S5 

730 NEKT S5 

785REM DEPRECinBLE INUESTMENT 

900 IF Q4=l THEN 1040 

810 PRINT "7„ UHRT ARE THE HNNUhL FIXED COSTS (SUCH RS SUPERUISION AND' 

8£0 PRINT " MfllNTENHNCE) INUOLUEB IN YOUR MAKING THE COMPONENTS"; 

830 INPUT 17 

840 PRINT "8. WHAT IS YOUR CORPORRTE TAX RRTE IN PERCENT"; 

850 INPUT 18 

870 GOSUB 1080 

390 LET 18=18^100 

900 PRINT "9. WHAT IS THE LOCAL TAX ON THE EXTRA INUESTMENT IN" 

910 PRINT " DOLLARS PER THuUSRHD"? 

9£0 INPUT 19 

'330 LET 19=19.^1000 

940 PRINT "10. WHAT IS YOUR COST OF CflPITRL IN PERCENT"? 

950 INPUT Jl 

960 LET S1=J1 

970 GOSUB 1080 

?oy ir C'd — i I nci 1 z-^'-i-H.i 

990 LET Ji=Jl.-"'i00 

1000 PRINT "11. WHAT IS YOUR ESTimTE OF THE YEARLY DEMAND FOR THE" 

1013 PRINT " COMPONENTS" 5 

10£0 INPUT J£ 

i 030 GO TO 11 60 

1040 LET 1 8= 1 8-^' 100 

1050 LET 19=19/1000 

1060 LET J1=J1/100 

1070 GOTO 1160 

i 090R[;;f'i «5ss^:s*:<ssffi'#**:ffis«pFRCE;;f-{TRGE CHECK SUEROUT I NE*^'***-**^*"*'**®^ 

1090 IF S1>1 THEN 1140 

1100 IF Si=0 THEN 1140 
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lily PRINT " PLEASE GIUE YOUR fiNSiCR IN PERCENT." 

1128 LET SS=1 

1 1 30 UU Tu 1 1 50 

1140 LET S£=£ 

1150 RETURN 

1160REM CONTINUE 

1170 LET D{0J=C7=I3 

use LET D(I43=-I5»^(1-I81 

1190 FOR fi=i TO a 4-1) 

1 £ 00 LET C ( fl ) =B ( fi ) =0 

1£10 iiEKT fl 

j 2 PfiREN sfss^ss.ffi«ffis«»-:s*:»= jKSCElKECUT I UE ROUNT I NE*""**^*^-**^**^*^*^'**'*-*^**^*^***^ 

l££5REri TIME LOOP 

1 £30 FOR H=I TO 14 

l£35REri INTEREST FhCTuR 

i£40 LET C6=i i+jntifi) 

1245REM COST TO BUY 

1£50 LET H(H)=I1:«J£ 

1E55REM INTEREST FflCTOR-POST ThK 

1£60 LET B(fl)=RfHJ*(i-I8} 

1£70 LET C5=Bmi^^"C6 

1P75REM SUN OF PRESENT UfiLUE 

1£80 LET C8=C84-C5 

1 £85REM DEPREC I RT I ON 

1£90 GOSUE ££80 

i£S5REM STRTE TAX 

1300 LET C3=iI3-C£)*^I9 

1305REM YEARLY MFG. COST 

1310 LET C4=(I£sej£:(+I7+C3 

1 3£0 LET C ifl) =C4+C1+C Cfl) 

1 -!30 LET DCH) = (C4*C1-I8) )-(Ci*IS)+D(H) 

J335REN PRESENT URLUE MFG. 

1340 LET C5=D f fl ) •-■'Cb 

1345RFM SUM OF P.U. MFG. 

1:350 LET C7=C7+C5 

1360 NEXT A 

j^ -;--!-^p:.pp1sStW"«ft:«:*:S PRINT OUT ROUTINE 5KW*:«»f5«5«5KW?«5K5«HKi!K5KW 

1380 PRINT 

j oQrTi pp T NT '" »:^:i^^.^Mi^:ikif^^:^:^'iii5^^ " 

J 4fiii PRINT 

14ii PRINT "THE PRESENT UfiLUE OF THE COST TO MAKE IS " ? C7 

14£8 PRINT "THE PRESENT UfiLUE OF THE COST TO BUY IS " ? CS 

1430 PRINT 

1440 LET C9=HBS0j8-C7) 

1450 ON SGfUC8-C7)+£ GO TO 1460? i5£0j 148@ 

1460 LET C:?^=='EUY" 

] 470 GO TO 1490 

1430 LET C$='^MRKE" 

1490 PRINT "YOU SHOULD "JC^J " THE COMPONENTS AT fi SfiUINGS OF "5 

1500 PRINT USING ISOSjCy 

1505s s#t##### 
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151y GOTO 1540 

1533 PRINT "IT MAKES tlO DIFFEREI^CE WHETHER YOU MAKE OR BUY THE" 

1530 PRINT " COMPONENTS SINCE THE COSTS RRE EQUAL" 

1540 PRINT 

1550 PRINT "DO YOU WRNT TO SEE THE CASH FLCiHS"? 

1560 INPUT Yt- 

1570 IF T$="NU" THEN ISSS 

1580 PRINT 

1598 PRINT " :«^5SK xhE FLOWS ^^ffi^^" 

1600 PRINT 

1 6 1 PR I NT TAB (103 ? " I F EUY^5K»se5KK«a€»t»: ■• ; 

16S0 PRINT TflB(3S3?"IF MHKE^3**'*JS*5«5«3fr:"; 

1630 PRINT TRBibE") ? "*^*-:5KNET»-:^5K" 

1640 PRINT " YEHR"? 

1650 PRINT THE (8) ; "EXPENSE"? 

1660 PRINT THE ( £01 ?" CASH FLOW"? 

1670 PRINT TAB ( 36 H "EXPENSE"? 

1680 PRINT TAB i:4S) J "CASH FLOW"? 

1690 PRINT TABi:6£:i j"C.ASH FLOW" 

17e€i RjR H=1 TO 14 

1710 PRINT a; 

1 7 1 5 PR I NT US I NG 1 775 ? TAB ( 8 1 ? A ( fl ) j 

1 7£0 PR I NT US I NG 1 775 ? TAB i £© ) ? E ( A ) ? 

1730 PRINT USING 17755 TfiEtSb) ;CCfl) 5 

1740 PRINT USING 1775? TAB (48) ;D (A) ? 

1750 LET S7=BCA)-D(A) 

1 760 pr i nt us i ng 1 775 ? tab ( 68 ) ? s7 
1770 ne>^:t a 

1775s ######## 

1788REM SENSITIUITY CHECK 

1790 PRINT 

1810 PRINT 

18£0 PRINT "WOULD YOU LIKE TO SEE THE EFFECT OF CHAT^GING " 

1830 PRINT " A UARIABLE ( YES OR NO) "5 

1840 INPUT As 

1850 IF A$="NO" THEN £460 

186a PRINT "WHAT IS THE NUMBER OF THE ITEM YOU WOULD LIKE" 

1870 PRINT "TO CHANGE"? 

1880 INPUT A£ 

1890 PRINT "WHAT IS THE NEW UflUJE"? 

1900 INPUT R3 

1910 GOTO I960 

19£0 PRINT "WOULD YOU LIKE TO MAKE FURTHER CHANGES "5 

1930 INPUT B5 

1940 IF E$="NO" THEN 1160 

19t:»0 GuTu I860 

1 960 ONA£GOTO 1 970 ? 1 990 s £6 1 8 ? £038 s £858 ? £078 ? £898 s £ 1 1 * £ 1 38 ? £ 1 58 j £ 1 78 

1970 LET I1=A3 

19£© GO TO £180 

1990 LET I£=A3 
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£000 GO TO £180 
£010 LET I3=h3 
£0c;ti GO TO £180 



£030 


LET I4=fl3 


£040 


GO TO £180 


£050 


i FT I5=h3 


£060 


GO TO £180 


£070 


LET I6=fl3 


£080 


GO TU £180 


£090 


LET I7=fi3 


£100 


GO TO £lyy 


£110 


LET I8=H3'^i00 


£1£0 


GO TO £180 


£130 


LET I9=fi3^-1000 


£140 


GO TO £180 


.-1 i jr-j-t: 
C. 1 J'^-J 


LET Jl=H3xl00 


£160 


GO TO £180 


£l7y 


LET J£=fl3 


£180 


LET C£=C8=0 


£ 1 90 


1 FT CiI4i=-I5 


££00 


ON 16 GOTO ££l0j£i 


££10 


LET 84=0 


£££0 


FOR 85=1 TO 1 4 


££30 


LET 84=84+85 


££40 


liEKT 85 


££50 


LET 86= I 3-1 5 


££60 


GOTU 19£0 


■:;■-:■ -.Ti 


STOP 



:i0j ££5ti 



££80 ON 16 GOTO ££90? £339? £370 

££90 REM SUri-OF-THE-YERRS-IiIGITS 

££95REM fiMOlJNT OF DEPRECIATION 

£800 LET Cl=S6*^f (I4+1-H)^"S43 

E305REM HCCUMULfiTEIi DEPRECIRTICM 

£310 LET C£=C£+C1 

£3£0 RETURN 

£330 REM STRfilGHT LINE 

£340 LET C1=S6.''-I4 

£350 LET C£=C£+C1 

£360 RETURN 

£370 REM DOUBLE DECLINING IflLRNCE 

£380 IF fl>=I4-3 THEN £439 

£390 LET C1=£«S6^I4 

£400 LET C£=C£+C1 

£410 LET S6=S6-C1 

£4£0 RETURN 

£430 LET Cl=S6-^'3 

£440 LET C£=C£+C1 

£450 RETURN 

£460 END 
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DEPRECIATION? 

DESCRIPTION 

This program calculates Depreciation using four methods. The depreciation 
may be computed monthly and/or annually. The four methods are: 

1. Straight Line 

2. Double Declining Balance 

3. Sum-of-the-Years-Digits 

4. 150% Declining Balance 

The program will also compute the switchover from one method to another. 



imEBS 

This program is primarily intended for individuals who have items to depreci- 
ate for tax purposes 5 such as: inventory, a building, a business, a house, a 
car, etc. This program can be used by the average home owner but the man who 
has an office at home or a small business could best utilize this program. 



INSTRUCTIONS 

Type RUN and enter your data as requested by the program. List the program 
for detailed program information. 



LIMITATIONS 

This program should execute without difficulty in most systems that have 6K 
Bytes of available program space. 
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liEPREClHTION 



£U PR I NT "THIS PPOGRRM COMPUTES AND PRIHTS UEPRECIfiTION BY MONTHS BY" 

30 PRINT "STRfilGHT LINE? DOUBLE DECLINING BflLnNCE? SUM-" 

40 PRINT-THE-YERRS-HIGITSj RNIi 150 PERCENT DECLINING EflLRNCE. " 

50 PRINT 

60 PRINT" IF YOU WISH TO SUPPRESS MONTH BY MONTH DETAIL? TYPE" 

70 PRINT"'!' HFTER QUESTION MfiRK. OTHERWISE? TYPE '©'.■'? 

80 INPUT RS 

90 PRINT 

108 PRINT"WHRT IS THE RMOUNT OF THE INUESTNENT"? 

110 INPUT II 

IPH PRINT 

130 PRINT"WHRT IS THE SRLUfiGE UflLUE"? 

140 INPUT SI 

150 PRINT 

160 PRINT"WHRT IS THE DEPRECIRELE LIFE (IN YEARS)"? 

170 INPUTLl 

180 PRINT 

190 PRINT "AT THE END OF WHICH MCMTH (1 THRU 1£) ? AND IN WHAT YEAR" 

iE'00 PRINT "(EG. 1968) IS THE INUESTNENT MADE"? 

£10 INPUT h1?h9 

8£0 PRINT 

£30 PR I NT "WHAT IS THE DISCCrtJNT RATE (IN DECIMAL NOTATION) FOR COMPUTING" 

£40 PR I NT "THE PRESENT UALUE OF THE ANNUAL DEPRECIATION"? 

£50 INPUT R 

£60 PRINT 

£70 PRINT"YOU NAME OPTIONS ON SWITCHOUER FROM DOUBLE DECLINING BALANCE TO" 

£80 PRINT"STRAIGHTLINE, TO PPEUENT SWITCHOUER TYPE 8? TO SPECIFY THE" 

£90 PR I NT "YEAR OF SWITCHOUER? TYF€ THE YEAR? Td OBTAIN AUTOMATIC SWITCH-" 

300 PRINT"OUER WHEN THE ANNUAL STR:AIGHT LINE DEPRECIATION BECOMES" 

310 PR I NT "GREATER THAN DOUBLE r€iXINING BALANCE? TYPE 1. WHICH DO YOU" 

3£0 PR I NT "WANT"? 



DATE"?" STRLINE"?" DDB"?" SYD"?" ISOxDB" 

i (Il-Sl).^Ll)«a-Al/l£) 

410 LET F£=0 

4£0 LETD£=i;£.Ll)«Il»;a-Alxl£) 

43y LET Q£ = D£ 

440 LET D3 = ( (1 1~S1 )«( 1-A1^18) 5K(£?sl1) ) .^ C (Ll+l ) ^Ll ) 



330 


INPUT Y 


340 


PRINT 


350 


PRINT 


360 


PRINT " 


370 


PRINT 


3S0 


LET K=H9 


390 


LET Dl = i ( 


-1-00 


LET Ql = Di 
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4 b a 



'■■■iSfl 












•330 



yyy 

910 

Cj ■": =T-| 
940 



LET Q3 = D3 

LET D4 = (i,5/Ll)^«Ii«il-Hi^lS) 

LET Q4 = D4 

LET Ui = Di.'il+R) 

LET y£ = Dc!--- i 1 4-R j 

LET U3 = DS-^-'Ci+R) 

LET U4 = n4.^ C 1 +R 1 

IF M<'Ch1 + 1) THEN 569 

LET Ml = Ui.^' CIS-fill 

GO TO 570 

LET Ml = 

IF M<(Hi-M) THEM 600 

LET M£ = DS.--'" 1 1£-Hi) 

GO TO 610 

IF M<(fll+lJ THEN 640 
LET M3 = D3.^-C1£-flil 

GO TU ir.50 

IF M<lfll+lj THEM 680 

GOTO 690 

IF h8=1 then 710 

PRINT Kl "-'-"jTHEiS) SHsTHBilS) ?mjMe!M8,M4 

nekt m 

GOSUB 1 470 

LET K = K+i 

1 fry Tii — f T i _c-i I .••s 1 

IF K<lH9-<-Li) THEN 810 

LET Ml = IL-Sl-Ql 

IF Dpi THEN 8S0 

LET Til = 

LET Ml = l!l.--fli 

GO TO 820 

LET Ml = rn..--l£ 

LET Ii£ = f£^-Lll-(Ii-Q£) 

IF K > fly-f-Ll THEN 990 

IF V < i THEN 930 

iF_F£ > THEt^ 9£0 

LET E£= i 1 1 S 1 -Q£ ) --" ( H9+L 1 -K> ( fl 1 y 1 2 } 3 

IF Y = 1 THEN 900 

IF K<Y THEN 930 

Gu i u y 1 

IF D£>E£ THEN 93© 

LET F£ = E£ 

LET UP = F£ 

IF D£ <= I1-S1-Q2 THEN 970 

LET D£ = I1-S1-Q£ 

IF D2>i THEr-l 970 
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960 LET D£ = 

370 LET M£ = D^-'ia 

980 GO TO i0£0 

990 IF D£>1 THEN lOlO 

1000 LET D£ = 

1010 LET M£ = D£.^-Hl 

10£0 LET p3=CIl-Sl-Q3)*^£^Cfl9+Li-K+ ffil--l£) ) 

1 030 LET P4= ( fly+L 1 -K+ 1 J * ( H9+L 1 ~K+ C fl 1 -'6 3 3 

1040 LET D3 = P3--"P4 

1050 IF K<iFf9+Li) THEN HO© 

1060 IF D3>i THEN 1080 

1070 LET B3 = 

LET ri3 = D3^--Hl 
1090 GO TO 1110 
1100 LET M3= D3.--i£ 
1110 LET D4 = i 1. 5^1.13*^ (I i-u4i 
11£0 IF K<h9+L1 then 1£00 
1130 IF K=h9+L1 then 1160 
1140 LET D4 = 
1 150 GO TO 1£40 
1160 IF D4 >i THEN 1180 
1 170 LET D4 = 
1180 LET M4 = D4.--H1 
1190 GO TO 1£50 

1800 IF D4<= I1-S1-Q4 THlN 1££0 
1813 LET D4 = I1-S1-Q4 
18£0 IF D4>1 THEN 1840 
1830 LET B4 = 
i84ti LET N4 = :u4 ••■■!£ 

1 £50 LET 1 =U 1 +l! 1 ..-■ ( (1 +R 3 1 ( K- ( fly- 13 3 3 
1 860 LET iJ£'=ti£+Ii£ ■" C f 1 +R 3 1 f K- f h9- 13 3! 
1 £70 LET U3=U3+D3-- U 1+R3 1 ( K- (Fi9-1 3 3 3 
1 £30 LET U4=U4+D4 ■•■" ( C 1 +R 3 1 f K- f fl9- 13 3 3 
1 pQfi FOR N = 1 TO 1£ 
1300 IF I1-S1-Q1>1 THEN 13£0 
1310 LET N1=0 
1380 LET Q1=Q1+N1 
1330 IF I1-S1-Q3 >1 THEN 1358 
1340 LET M£ =^ 
1350 LET Q£ = Q8+M8 
1360 IF I1-S1-Q3 >1 THEN 1388 
1370 LET N3=0 
1 3801 iLET Q3 = Q3+M3 
1398 IF I1-S1-Q4>1 THEN 1418 
1400 LET M4 = 
1410 LET Q4 = Q4+M4 
1480 IF H8=l THEN 1448 

1430 PRINT K? "--■"5THEf53 ?M?TREil53 ;M1jM£?M3?M4 
1440 NE^T M 
14 5y G08UE 147y 
i4f,ft GO TO 1690 
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1 470 
1480 
1 490 
1580 

1510 

1530 
1540 
1 550 
1 560 
1 5 70 

1 590 

1 600 

1610 
1 6£:0 
1630 
1640 
1 650 
1 660 
I 670 
1680 
1690 
1 730 
1710 
1 7£0 
1730 
1 740 
1750 
1 7>^.0 



PRINT 

PRINT K^Dl ?Ii£5r!3?Ti4 

IF H8=i THEN 1510 

PRINT 

PRINT "CUN DEP'' 5QI jQ£sQ35Q4 

IP H8=i THEN 1540 

LET_B1 = I1-S1-Q1_ 
ip i;=l .-■" i THEN 15i'''M 

■L_C, i L- i — -_' 

[ p"r X;p — y 1 .—Oi _,Qp 

IF E£ > 1 TI-iEN 1600 

LET E£ = 

LET E3 = Ii-Sl-Q3 



i 1- h;j > 
LET B3 ^ 
LET E4 ■■ 
IF B4 > 



-f-i 



jy 



■iLti 1 1.60 



PRINT "UNDEPR BfiL'S Bl sBEsES? h4 

PRINT 

RETURN 

IP K>=(fl9+Ll) THEN 1710 

GO Till 730 

PRINT 

PRINT -PRESENT UfiLUE OF HEPREC I RT I ON " 

PRINT "FIT THE BEGINNING OF" ? TAB (£0) 5 F!9 

LET R=RS100 

PRINT "HT'^?TfiB(3) ;R?ThB! 103 j "°="?TfiBf 153 JUl^U? 

ENlJ 



■,i,r-;,!.J4 
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EFFICIENT! 

D E S C RIPTION 

Efficient computes the most cost effective assignment of resources to loca- 
tions thereby solving the classical assignment problem. This program uses an 
algorithm by R. Silver in Communications of the ACM , Nov. 1960; pgs. 605-606. 
This program may be used to assign men to jobs that require a variety of tasks, 
each man being partly proficient in each task, so that the entire job will be 
completed in the least time at the least cost. The number of resources and lo- 
cations must be equal. 



USER3 

This program is ideally suited to plant or office managers who would like to 
increase the efficiency of their daily routines. It can be used to locate 
furnishings or personnel within an office or room to assure the most effi- 
cient utilization of these furnishings or persons with a minimum of effort 
and cost. 

INSTRUCT I 0N$ 

Before the program is run the use data must be entered in lines 2000 to 2050. 
List lines 70 to 88 for the data input and format requirements. A sample prob- 
lem is included in the data statements, lines 2000 to 2050. These statements 
should be changed to reflect your problem before the program is run. 



L I MIT AT IO N S 

Line 100 DIM E(50,50) is a call for a two dimensional array or matrix. The 
first statement in line 100 will reserve about 15K Bytes of memory for pro- 
gram constants. In order to reduce this requirement so this program may be 
run on a system with limited memory, reduce the numbers in line 100 to re- 
flect the actual matrix size desired. In the example shown the matrix size 
is 5; ie: DIM_(5,5). The source code requires 4K Bytes of available memory 
for storage. 
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EFFIClLjiT 



aOREM liESCRTPTION? THIS BASIC PROGRfin USES THE RLGORITHM 
3£REr1 uESCRIBEIi BY R„ SILUER IN THE COMMUNICfiTION 

34REM OF THE RCM CNOU. ? i960 j PP. ? 605-696) TO 

SbREM SOLUE THE CLfiSSIC ASSIGNMENT PROBLEM HNH 

38REM COMPUTE H COST FOR THE ASSIGNMENT. 

45REM 

70REM INSTRUCTIONS: CRTA IS ENTERED STARTING IN LINE £608 

7£REM III THE FOLLOWING FORMATS 

74REM 1. FIRST ENTER N ? THE NUMBER OF MODULES TO BE 

76RFM flSSIGNED— IT IS ASSUMED THAT THERE ARE ALSO N 

77REM LOCHTIONS. 

7HREM £, riEVT ENTER EdsJi. THE "RATING MATRIX". 

SaREM Eil^J) IS COriSIDERED TO BE (MODULEIS? LOCATIONS) . 

SdREM 

8SREM TYPE "RUri " TO EXECUTE 

90 REM 

97PEM 

100 DIM E(50?50) jR(50) jX(50) sYCSS) sMijS) jLfjO) sFlSO) jGCSQ) 

140 REM INITIALIZE 

150 READ N 

160 FOR 1=1 TO N 

170 FOR J=lTn N 

180 READ Ed,. J) 

190 NEXT J 

£00 NEXT I 

£10 LET T=0 

££0 FOR 1=1 TO N 

£30 LET Xl=Ei I? 1) 

£40 FOR J=£ TO N 

£50 IF ECIjJ)=>X1 THEN £70 

£60 LET Xl=Ea?J) 

£70 NEXT J 

£80 FOR J=1TU N 

£90 LET ECI? J)=Ea5 J)-Xi 

300 NEXT J 

310 LET T=T+X1 

3£0 NEXT I 

330 FOR J=1T0N 

340 LET X1=E(1jJ) 
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350 


FOR 


I=£ TO N 


360 


IF E 


Cl!.J)=>Xl THEN 380 


370 


LET 


Xl=ErijJ) 


380 


NFVT 


I 


390 


FOR 


1=1 TO N 


40£1 


LET 


Ei:i5J)=Ei:ijJl-Xl 


4 1 


NEXT 


I 


4£0 


LET 


T=T+X1 


430 


rc;-:T 


J 


440 


FOR 


1=1 TO N 


450 


LET 


X i 1 1 =Y ( I ) =0 


4 by 


me>^:t 


I 


470 


FOR 


1=1 TO N 


480 


FOR 


J=i TO N 


A3\6 


IF E 


:il3J)<>0 THEN 540 


50£i 


IF V, 


;fI3<>0 THEN 540 


510 


IF V 


•(J)<>0 THEN 540 


5£0 


LET 


X ( 1 1 = J 


530 


LET 


Y( j:i=i 


540 


ne^^:t 


■ J 


550 


NE^sT 


■ I 


560 


REn 


SILUER START STRRT Lf 


570 


LET 


F1=N 


580 


LLI 


Rl=Ci=0 


600 


LET 


R£=l 


610 


FOR 


1=1 TO N 


6£0 


LET 


M 1 I J =L i 1 3 =0 


640 


IF > 


aiK>0 THEN 690 


650 


LET 


R1=R1+1 


660 


LET 


RiR13=I 


670 


LET 


M(l)=-1 


680 


LET 


F1=F1-1 


690 


HEKT I 


700 


IF F1=H THEN 14£0 


710 


REn 


LfiEEL LflEEL RND SCON 


7£0 


LET 


i=ri:r£) 


730 


LET 


R£=R£+i 


740 


FOR 


J=l TO N 


750 


IF EflsJIOO THEN 840 


760 


IF LiJ)<>0 THEN 840 


770 


LET 


li:j)=i 


780 


LET 


C1=C1+1 


790 


LET 


FfCl)=J 


800 


IF '-i 


f{.y\ =0 THEN 13£0 


810 


LET 


R1=R1+1 


8£0 


LET 


ri:rij=ycj3 


830 


LET 


ricYfj) 1=1 


840 


NEXT J 


850 


IF R£<=R1 THEN 710 


860 


REn 


RENORNflLIZE 


870 


LET 


Sl = l 
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880 LET C0=C1 

890 LET C£=0 

900 FOR J=l TO N 

910 IF Li J) OS THEN 940 

920 LET C£-C£+l 

930 LET GCC23=J 

940 NEKT J 

950 LET :>a =E i:r 1 1 ) ? g i: i ) ) 

960 FOR K=l TO Rl 

970 FOR Ll=l TO C£ 

980 IF EiRfK) sGlLl) J >;K1 THEN 100© 

990 LET >=:i=Ei:RfK) jGCLl) 3 

1000 NEXT Li 

1010 NEXT K 

10£0 LET T=T+fRl+C£-N:i«Xi 

1030 FOR 1=1 TO N 

1040 IF MiDOO THEN 1090 

1050 FOR Ll=l TO C0 

1060 LET EiI?FiL13)=Ei:i?Fi:Ll))+Xl 

1070 NEXT LI 

1080 GOTO 1£40 

1090 FOR Ll=l TO C£ 

1100 LET EiI?G(L11)=Ei:isGfLl) )-Xl 

1110 ON Si GOTO 11£03 1£305 1£70? 13£0 

11£0 IF EC I jG! LI) 3 <> THEN 1£30 

1130 IF LiGlLlllOO THEN 1£30 

1140 LET L(Gi:Li3 3=I 

1150 IF Y!:G(Li3 3 <> THEN 1190 

1160 LET J=G(Li3 

1170 LET Sl=£ 

1180 GOTO 1£30 

1190 LET C1=C1+1 

1£00 LET FCCi3=G(Li3 

1£10 LET Rl=Rl+i 

1££0 LET RfR13=Y(GCL133 

1230 NEXT LI 

1£40 NEXT I 

1S60 ON Sl+£ GOTO 1 1£0! 1£30? l£70s 1320 

1£70 IF C0=C1 THEN 710 

1£80 FOR I=C0+1 TO CI 

1290 LET mi:yi:fi;i3 3 3=fi:i3 

1300 NEXT I 

1310 GOTO 710 

1320 REm MARK HARK NEW COLUMN RND PERMUTE 

1330 LET Y(J3=I=Li:J3 

1350 IF Xa3 <>0 THEN 1330 

1360 LET X(I3=J 

1370 GOTO 570 

1380 LET K=J 

1390 LET J=XCI3 

1400 LET Xi:i3=K 
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1410 GOTO 1339 
14£0 REn CONTINUE 
1430 FOR 1=1 TO N 
1440 FOR J=l TO N 
1450 LET EfIjJi=0 
1460 NE>^T J 
14?-0 NEKT I 
1490 FOR K=l TO N 



14 


90 


LET ECYlK 


15 


i00 


ne^:t K 


15 


ilfl 


PRINT 



(K) 1 )=1 



15£0 PRINT 

1530 PRINT" "j-THE ASSIGNMENT IS" 

1540 PRINT 

1 550 PR I NT " MOIiULE--.LOCRT I ON " 

1560 PRINT TRECb) 5 

1570 FOR 1=1 TO N 

15S0 PR I NT 1 5 

1590 NE-^T I 

1600 PRINT 

1 b 1 KJ h K i n ! 

1630 FOR 1=1 TO N 

1630 PRINT I? TAB (63 ? 

lA4Pi FOR J=l TO N 

1650 PRINT EC I, J) 5 

1660 NE>^T J 

1670 PRINT 

1680 liEXT I 

1690 PRINT 

1700 PRINT "THE COST OF THIS flSSIGNMENT IS'ST 

1710 PRINT 

1730 PRINT 

£000 DRTfl 5 

£ 1 DflTfl 1 44 ? 74 ? 4 6 ? 8 1 ? 68 

£0£0 DflTfl ""7 ? £7 ! 1 3 j 38 j £8 

£030 DflTfl 1 07 5 55 ? 34 j 60 ? 47 

£040 DflTfl 9 1 ? 49 J 3 1 ? 5£ ? 43 

£ 050 DflTfl 1 06 ? 38 ? 1 9 ? 53 5 44 

£060 END 
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TFICIEMi 



£0130 DRTfi 5 

£010 IiflTR 144! 74! 46? 81 J 68 

£0£0 rmTFi 77? £7? 1 

£030 IiFlTFl 1 07 ? 55 ? 34 ? 60 ? 47 

£040 UFlTF! 91? 49? 31 J 

£050 DflTFl 106? 38? 19 

£060 EMIJ 






f:UH 



THE FlSSIGHMEMT 15 



■lonuLE.-- 


LOi 


JFlTI 


:iri 














1 


a 




3 


4 


5 


1 












1 








i:::, 















1 





C' 




£1 













1 


4 




1 










£1 


iZi 


CI- 
,1 







1 














THE COST OF THIS fiSS I GMriENT IS 



■i4 



44 



FLOW! 

DESCRIPIION 

Flow analyzes the data from the past histories of expense and income accounts 
and predicts the cash flow for the coming year. While this program leans to- 
wars state or municipal governments it can easily be used by individuals and 
small businesses by modifying the expense and income accounts to fit their 
specific situations. 



** v/ »*< i \ \^ 

Any person, agency ^ business , etc. whose operating capital fluctuates, crea- 
ting a need to either borrow funds or delay projects until funds are available 
will find this program extremely useful in making these determinations. 



INSTRUCT ION S 

Lines 4 to 38 explain how to enter your information. The sample data in lines 
100 to 400 must be removed and replaced by your data before the program is run. 
Additional program information may be obtained by listing Flow. After you have 
entered your data type RUN. 



LIMITATIONS 

This program uses two dimensional arrays; matrix operations. The Print Using 
statement is used throughout this program starting in line 1600. The program 
source code requires 6K Bytes of memory for storage. Execution length is a 
function of the DIM statements in lines 1100 and 1110. With the DIM state- 
ments as they are now, the program will require 60K Bytes for execution. This 
length may be prohibitive except for larger systems. To reduce this require- 
ment, reduce the number 100 in line 1100 to 10. This will limit the number 
of income accounts to 2, the number of expense accounts to 6, and the number 
of years to 2. This modification will reduce the execution space to 13K Bytes. 
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~fr- CJ'i 

J, yREM 



1 '-:vXl.f'\ 

1 4REpi 

1 6 REM 
1 7REM 
1 8REi1 
1 SsREM 
cSREM 

£:4REri 

RbREM 

c!oF!fc.M 

£'9 REM 

3 i REM 

"1= C_ r-. £_.,! : 

33REM 



uESCRIPTinri — TfiKES HISTuRICfiL DflTR OF MuMTHLV RE'JEMUES RHD 

EXPENSES flNlj PREDICTS THE NEKT YEARS CflSH 
Fl OM REQUIREMENTS. 

-iriES 100-400 CuNTfilM DRTfi FOR fi SRMPLE PROBLEM 
TO TEST THE PROGRRM TYPE "RUr-l" 

TO USE PROGRRM FOR YOUR OWN PROBLEMS 

1= REMOUE SAMPLE DATA IN LINES 180-400. 

£= TYPE IN YOUR DRTR IN LINES iOO-lOOO IN THIS MANNER. 

FIRST TYPE IN THE CD NO. OF REUENUE ACCOUNTS? CR) THE 
NO. OF EYRENSE ACCOUNTS (3) AND THE NO. OF YEARS OF DATA. 



BY ITS MOriTHL^' DATA FROM THE FIRST YEAR. 

AFTER THIS COMES THE MONTHLY DATA FOR THE SECOND YEAR 
ON THROUGH THE LAST YEAR. 

AFTER THIS ACCOUNT DATA HAS BEEN ENTERED THE OTHER REUENUE 
ACCOUNTS ARE TYPED IN FOLLOWED BY THE E>^PENSE ACCOUNTS. 

THE LAST DATA TO BE ENTERED ARE THE BUDGET TOTALS FOR EACH 
ACCOUriT FOR THE" COMING YEAR. 



3. NOW TYPE "RUN" AND TfHE PROGRRM WILL E>^ECUTE. 



.::;DKt„!-| 

36REN 

3 8 REM 

9SREM 

9 8 REM 

99REM SRMPLE DATA 

100 DATA R?3?4 

110 DATA TA^^ES 

1 £ti. DATA c!c!. 4? c'9. 1-3? 35. 10? 42. 3f 4£=. £93 57. 48? €■€■. SQ? 78. £5? 77. i ? 84= 40' 

130 DATA 91. 17? 96. £3 

1 40 DATA £4 . 89 ? 30 . £3 ? 3c- . 1 £! ? 45 . !3£ ? 55 . 1 £ ? 6£ . 96 ? 68 » 87 ? 74 . 57 ? 80 . 9 

1 50 DRTR 9£ . 1 3 ? 1 8 1 . 93 ? 1 89 . 67 

1 6£i DATA £4 . 58 ? 33 . 4£ ? 4 1 . 86 ? 5E .15? 59 . £3 ? 69 . 98 ? 73 „ £!£ ? 89 . 75 ? 95 . 69 

1 7 DATA i 06 . 4£ 5 114. 35 ? 1 £4 . 7 
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180 liflTR £5.££j35 

190 IifiTfl 117. 33? 1 

£00 SRTfl LICENCES 

£10 DHTh 5.3?6.£? 



ly J 46. 1 1" s 5?. 4?j t"9. 67? ?■£. 34? St). 
i:fc.56? 138,40 



7£ J 9b . i:;4 ? I tiy . 9t:« 



10 iJHTfl £ = 
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£30 


BflTfl 


4 . y ! 8 . £ ? 


£40 


itHTH 


5.0J7.9? 


£50 


BflTfi 


PflYROLL 


£60 


DflTH 


55? 55? 55 


c! ■■" tl 


DRTfl 


6 1 J 6£ s 6£ 


£80 


DfiTfl 


69 5 69 ? 6S' 


£90 


IiflTfl 


i"' i" ? (' i' ? !'' i' 


300 


riRTfi 


UELFRRE 


310 


DfiTfl 


;* n do ? fc a l1 


3£3 


BflTfl 


7 a 3'J J 6 . 3 


330 


DflTR 


6 = £7 5 6 . 3 


340 


brth 


5. 98? 6.0 


350 


DRTfl 


HIGHWRV 


36ti 


DRTfl 


4=£?4.1? 


370 


DRTfl 


.-1 i -■i ■"> 

H- . 1 ? 4- » -3 ? 


380 


BflTfl 


4 . 3 J 4 . id ! 


390 


DRTfl 


4 . 4 ? 4 , £ ? 


4£i€i 


BflTfl 


i£i£:ei! 68? 


110C 


% fl T hi 


fl$f 100) ? 


Hit 


1 TjTM 


N f 1 £ ) ? ( 


11£L 


i pRir 


iT" 



7. £? 6» 9? 5. fc.? 4» S? £;. 1 ? £ 

8. 1 ? 7» £? fc.» 1 ? 5» 6? 4„ £? £ 

9. ti? 7» 8? 6. 7? 5. 9s 5. 1 ?3 



■5 i 



^ 6 n 4' ' 



. 9 ? 3 . 4 ? 5 . 3 ? £ . 1 ? 1 . 8 
. 9 ? 3 . 3 ? 5 . 5 ? £ . 3 ? 1 » 9 
. 3 ? 3 . 7 ? 5 = 4 ? £ . 7 s 1 » 8 
.7?4. 1?5=£?£.8? 1.7 



? 6£ ? 6£ ? fcf ? bif. s fc£ ? 56- ? 56 ? 5fc> ? 63 
? 69 ? 69 ? 6'9 ? 69 ? 79 s 70 ? 70 ? 70 ? 70 
? i"" r" 5 i i' ? i 9 ? i"' 9 ? 7y ? 79 ? 79 ? 79 ? 79 



??■_'. 



r ? •_• . 



■ I' 5 -_= c '+C ! c- n -_it" ? .::> . jt' ? C' 
!7 ? 5 . 40 ? 3 . €-0 ? 3 . SQ ? 3 



> |- ? C- . --r i ? 



3.43?3 



d3? 4. c!l ? 3. 4v 



. 6y ? 3 . 9y ? 4 . 45 ? 6 . 37 ? fc. 
> fc'W ? 3. 87 J 4 . 87 ? 6 . 4£ ? 6 
. 41 ? 3. 59? 4. 43? 6. 07? 6 
a o i"' ? c« B o I*" ? ^i' B 99 ? -_.* B 36 ? -_* 



B 


98? 


7. 


1 





a 


95? 


I*' B 





-« 


a 


16? 


6. 


8 


^J 


„ 


75? 


6. 





3 



8? 3. 8"? 4 B 0? 4. y? 4b 41 ? 4. 7? 4 b y8? £. 9? £. £:? 3. ! 
9 ? 3. 7? 4. £? 4. 9? 4. 95? 4. 95? 4. 35? 3. 3? 3. £? 3 



JIT ET t^j C 

. 5 ? 5 . y ? D 



1 ? 4b 9? 4b Q? 3. 4? 3. 



d.. A 



kl 



3. 9? 4. 1 ? 4. 6? 5. c!? 5b 3? 5. 1 ? 4. 1 ? 3,. 7? 3b 7? 4b £ 
1030? 60? 5£ii 

;■■■; ( 1 00 ? 1 £ 3 ? C ( 1 00 ? 1 £ ) ? S f 1 00 ? 1 £ ) 5 B f 1 00 1 ? M i 1 00 ? 
l£;i jRil£3 ?Ei:i£) 



1£) 



il30REri INDEX COriPUTflTION 

1 1 40REri RERD BflTfl 

1145REM # REUEMUE ACCOUNTS? # EI^PENSE ACCOUNTS? # YEARS DRTfl 

1150 READ M?N?Y 

1 160 FOR J= 1 TO (11+Nl 



1170 FOR 



1 TO 



1180 
1190 
l£0y 

1 O 1 C-i 

J. ■_. i i-_" 
1££0 

■i '"'-7 



IF 1)1 THEN 1£00 
READ HSiJ) 
LET 8=0 
FOR K=l TO 1£ 
READ :-:fJ?KJ 
REM COMPUTE flUERRGE firtlTHLY DATA 

:)^--i£ 



1£30 LET S=S+K(J 

1 £4y tiL!-'!T K 

1£50 FOR K=l TO 1£ 

l£6y LET Cf:J5K)=K! JjK)-^"S 

1£70 IF 1=1 THEN 1310 

■• r-'Hfl 1 F"^ R= -''^ 

1385REM SINGLE SMOOTHED INHEX 

1 £90 LET S ( J ? K ) =3 i. J ? K j *:A4- f 1 -R ) mz ( J ? K ) 

1300 GO TO 13£0 

1310 LET S(J?KJ=C! J?K) 

13£0 NEXT K 
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1330 NEXT I 

1340 riEKT J 

1350REM READ IN BUHGET (RriHUFiL BY flrmni IHT 1 

1360 FOR J= 1 TO M+H 

1379 RERD ECJJ 

1330 FOR K= i TO 12 

1385REI1 INIO:; TIMES flUERRGE MONTHLY 

r39y LlT M(J3K)=Si J? K) *^(iil J,).^"12) 

1400 LET M(J?KJ=IriT (M ( J? Kisei g0-i-. 5) ^-igg 

1410 NEXT K 

1 430 NEXT J 

1430 PRINT TRECIS) ? "FORECfiSTED INCOME STRTEMENT" 

1460 PRINT 

1 '^ z=-_"5 L.L. ! !_.^^ 1 

1505REM MONTHLY HERDING ROUTINE 

1510 GOSUB 3190 

1539 IF H= M4-N THEN 1550 
1530 PRINT TRBC0)?"REU RCCTS" 

1540 GO TO 1560 

1550 PRINT TRB(0i;"EXP flCCCTS" 

1560 FOR J= G TO H 

1570 PRINT TRECP); fi^CJ)? 

1 590 FOR K= E TO F 

1600 PRINT USING 1605? THE (T) JMUjK) ? 

16yt=s #####.## 

1610 LET T = T + 10 

1630 NEXT K 

1630 PRINT 

1640 NEXT J 

1645REM MONTHLY SUMMRTION ROUTINE 

1650 GuSUB £370 

1660 GOSUE £470 

1670 PRINT TflE(5} ; "TOTRL" 

1680 IF H=(M+N) THEN 171© 

1690 PRINT TRBfPl ; "REUENUES"! 

17310 GO TO 17£0 

1710 PR I NT The i £ ) 5 '" EXPENSES " ? 

17£0 LET T=l£ 

1730 FOR J= E TO F 

1740 IF H=M-i-N THEN 1770 ' 

1750 PRINT USING 1605? TRE(T) jRCJ) ? 

1770 PRINT USING 1 605? TRBiT) JEiJ) ? 

1730 LET T = T ^ 10 
1790 NEXT J 
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1800 PRINT 

1810 PRINT 

1820 PRINT 

1830 IF H= M+N THEN 1879 

1840 LET G=G+M 

1850 LET H=H+N 

I860 GO TO 1550 

18€5REM COMPUTE MONTHLY NET BflLfiNCES 

1870 GOSUE ££80 

1880 GOSUB £470 

1890 PRINT 

1900 PRINT THE(5)3"NET" 

1910 PRINT TfiBf£);"SURPi:DEF)"l 

19£0 LET T=l£ 

1930 FOR J= E TO F 

1940 PRINT USING 1605? TfiEiT) INi Jl ? 

1950 LET T=T4-10 

196a NEXT J 

1970 PRINT 

1980 GOSUB £470 

1990 PRINT TflBf5}5"CUM" 

iE:000 PRINT TflEf£3 3"SURPfDEF)"? 

£010 LET T=i£ 

£0£0 FOR J= E TO F 

£030 PRINT USING 1605? TflEf T) ?0(J) ? 

£040 LET T=T+la 

£050 NEXT J 

£060 PRINT 

£070 FOR L= 15 TO 68 

£080 PRINT THE(L3 ?" = "? 

£09W HEX I L 

£100 PRINT 

£110 PRINT 

£i£0 PRINT 

£130 IF F= 1£ THEN 9999 

£140 LET E= E+6 

£150 LET F=F+6 

£160 LET G=l 

£170 LET H=M 

£180 GO TO 1510 

£1-90 IF F=l£ THEN ££30 

££00 PRINT THE (15)5" JfiN" ? TRE (£-5) ? "FEB" ? TAB 135) 5 "MRR" ? TAB (45) ? "RPR" ? 

££10 PRINT TfiB(55)r'NflY";TflE(65)5"JIJH" 

£££0 GO iO ££60 

££:-afi PRINT 

££40 PRINT TfiEdS) 5 " JUL"5TflB(£5) 5 "RUG";TRE(35) J "SEP"?TflB (45) ? "CCT"; 

££50 PRINT TAB (55) ? "NOU" ? TRB (65) 5 "DEC" 

££60 GOSUB £470 

££70 RETURN 

££80REM SUBROUTINE FOR COhPUTING MONTHLY NEXT EHtFf^l::ES 
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££90 FOR J=E TO F 

£300 LET NfJ)= RfJl-ECJ) 

£319 LET K9=X9-«-MCJ) 

£3£0 LET nfj)=y9 

£339 IF RBSfOiJ) ) >==0£ THEN £359 

£340 LET n!:j:!=0 
£350 ne>^:t J 

£360 RETURN 

3370REM SUBROUTINE FOR TOTfiLIMG REU. AND EXF 

£330 FOR K= E TO F 
£390 FOR J= G TO H 
£400 IF J>ri THEM £430 



£4£0 GO TO £449 

£430 LET E(K)=E(K3+Mf J?K1 

£440 NEXT J 

£450 NEXT K 

£460 RETURN 

£470 FOR L = 15 TO 69 

£480 PRINT THE(L)?"-"? 

£490 NEXT L 

,E'5h0 print 

£510 RETURN 

9999 END 
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INSTALLMENT; 

DESC RIP TIO N 

This program computes the monthly payment schedules for a borrower for an 
installment loan. Interest and insurance are amortized using the sum-of- 
the-months method. The loan payments are pro-rated over the life of the 
loan. Shown in the print out are the remaining balance (principal), pay- 
off balance (principal), unearned insurance, remaining interest and the 
earned interest. 



USERS 

This program can be used by anyone who does installment buying. From the 
print out one can determine the amount of yearly interest paid for income 
tax purposes and the amount required to pay off the loan at any time. This 
program may also be used by a lender to keep a record of all installment 
accounts, outstanding. 

I NS TR UC T IONS 

To use the program, remove the sample data in lines 1090 and 1100, then en- 
ter the new data in the following format: 

1090 DATA Name, Street, City 

1100 DATA Beginning month, beginning day, beginning year, 
loan amt., insurance amt. , interest rate, effective rate, mths. 
to maturity 

2pc 
The effective interest is determined as: "" " n + 1 

p = # of payments per year 

c = % of interest charged 

n = total # of payments 

1 = effective interest 

LI M ITATI O NS 

The source code requires 5K of memory to store and the program should exe- 
cute in about 6K Bytes of memory in most systems. 
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iriSTRLLriFriT 



L;:3REM 

lifiREM reSCRIPTION— CRLCULRTES THE MONTHLY PflYMEHT SCHEDULE 
150REM FOR AN INSTRLLMENT LOfiN„ 

1 60REri 

iT'yREn 

1 SOREM 

lyyPEM INSTRUCTIONS— DflTfl FOR fi SfiMPLE PROBLEM IS STflRTIMG IN 

195REM LINE 1098. 

£00REri TO USE TYPE "RUN" „ 

£10REri ENTER DfiTfl FOk YOUR INSTALLMENT LORNS 

2S0REM BEGINNING IN-LINE 1098 AND "RUN". 

£30REM 

eSSREM 

240REM 

£ SOREM 

£55REri PRINTS IN DOLLRRS S: CENTS FORMRT 

£60 DEF FNPiN7jN9) 

£70 LET C£=l 

£S0 IF N9=0 THEN 415 

£90 LET P9=0 

300 LET C9=INTfN9»^100+.5) 

305 LET F9=INTrC9.-^-100) 

310 LET R9=C9-i00'KF9 

315 LET T9=INT(F9.--10) 

3£0 LET P9=P9+1 

3 £5 LET T9=INTiF9.--10) 

330 LET nfP93=F9-10*T9+48 

335 LET F9=T9 

340 IF F9>0 THEN 3£0 

345 LET 0(y)=P9+3 

350 LET ( P9+ 1 ) =46 

355 LET Of:P9+£)=INT(R9'-10) 

3 60 LET f P9+3 ) =R9-0 i P9+2 3 '^- 1 0+4£: 

365 FOR 19=1 TO P9.--£ 

370 LET T9=0fI9} 

375 LET 0i:i9)=U(P9+l-I9! 

380 LET 0iP9+l-I91=T9 

385 NEKT 19 

3 90 LET ( Py+£ ) =0 ( P9+c" ) +48 

395 CHANGE TO Q$ 

400 PRINT TfiB(N7-LEN(Q$l);Q$? 

405 LET FNP=C9.-n00 

410 GO TO 4£0 
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4 15 PR I MT THE ( N7-4 ) 5 " S . 08 " 5 

4£0 FHEMD 

425 REn CflLCULflTES PFlYMENTS FOR m INSTALLMENT LORN 

■;i£9REri MONTHS OF THE YEftR 

430 DIM C$fl£) 

432 FOR 1=1 TO i£ 

435 RERD Csflj 

■^137 NE!-!T I 

-1 40 REhD G$ 

445 If G5= "FINISH" THEN 9999 

450 REflD G1$?G£$ 

455 READ BjEI ? C? fl? I ? Rj Rl sM 

4 60 LET C3-C 

4b5 LET C8=l 

-i69RFM CHECKS FOR FEE RRTHER THAN RATE 

■^70 IF R<1 THEN 485 

■H- 1'' ^' L-L- i H-.>—-h* 

4hh go to 495 

485 LET H5=ifl-+-I)«R*;M.-^1£ 

-i89REM MONTHLY PRYMENT 

4 99 LET T= ( I +R+H5 J ■■-'H 

495 IF T«100=INT(T»:i00! THEN 5£5 
500 LET T= I NT (T* 100+1). ^-100 
505 IF R<1 THEN 5£0 

519REM TOTAL PRYNENTS 

5£0 LET Hi=TSM-R-I 

585 IF Hl*^100=INTfRl*^100) THEN 535 

530 LET H£=INTf iHl«(I.---fH+I)l )«100+.5).--100 

535 LET D=Hl 

540 LET E=I 

545 PRINT 

550 PRINT 

555 PRINT THE(15i;"INSTRLLMENT LCfiN LEDGER" 

560 PRINT ThB(15:!?" " 

5 £,5 ppTf-ff 



575 PRINT G1:J 

580 PRINT G£$ 

585 PRINT 

590 PRINT "RMOUNT OF LORN"? 

595 LET fl=FNP!:33?R:! 

600 PRINT 

605 PRINT "INTEREST"; 

610 LET Hl=FNP(33jfli:i 

615 PRINT 

6£0 PRINT "INSURRNCE"? 

6 £5 LET I-FNP(33? I) 

630 PRINT 
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6 33 LET T7=fl+Hl+I 

640 PPIHT "FflCE AMOUNT OF THE HOTE"? 

642 LET T7=FNPf335T7) 

645 PRINT 

'!::= '-i- tilt ^"K ili I 

655 ^'Rim "TimriCING FEE" PR 

660 GO TO 670 

665 PRIMT "Hlili ON INTEREST RflTE"?R 

670 PRiriT ■'EFFECTIUE RhTE"?R1 

675 PRIMT "DRTE OF LORN IS "jC$fE)j" " ? Bl 5 " - " 5 n+iqRfi 

680 PRINT "MONTHS TO MflTURITr"?M 

685 PR I NT'' MONTHLY PfiVMENT 5"! 

6 90 LE i T=FNP i 38 ? T ) 

695 PRINT 

700 PRINT 

705 PRINT 

710 PRINT TREiOJ I "IiflTE" 5 TREiT) ? "DATE" ? TAB i 141 5 "EflLfiNCE" J TRBi£31 3 "PflYnPF"? 

71;z^ PRINT IfliiCSE) ;"IRREG";TflE(401 J "NEW OR"? TflB(48l 3 "I IMEflPN REMRINTNG''^ 

730 PRINT TRB (661 ;■' EARNED " 

735 PRINT THE COJ ? "DUE" ? TAB (7) ? "PfilD" ? TAB C 14) ; "REMRIN" 3 TAB f£3-i 5 "ERLRNCE" 5 

730 PRINT THE! 33) I "PRYMENT"; TABi40) J "SHORT" 5 JAB r 481 ? "INSURE"? 

735 PRINT TREi 56) J" INTEREST"? TAB (651? "INTEREST" 

74a PRINT THE 10) ; " "5TAEf7J?" "? TAB (141; •• "?TABfS3)? 

74d kkINI " "?TAEC3£j ? " ";THBf401 5 " "5 TAB f 481 5 ■' "? 

750 PRINT TAB i 57) ? " "JTABrbbl ? " " 

r''by Ll I B5=R1+R-+-I 

770 LET C=C-^i900 
7'' 75 PRINT TRE(0)jC 
730 PRINT 

785 PRINT TRB(0) ?C5CE) ;TRE!:7) ?"N0NE"3 
790 LET B5=FNPC£l5E5) 
300 LET H=FNPC30?A) 
310 LET E=FNP[535E1 
830 LET D=FNP(63!D) 
£'£5 PRINT 

339REM CALCULATION AND PRINTING MONTHLY TABLE 
830 FOR .J=l TO M 

S 35 LET" P= ( ( M-J+ 1 )■••■■ i C ( M+ 1 1 /£ ) s*M ) ) ^A 1 
8 4ei LET P= I NT ( P-*^ 1 00+ . 5 ) ■•-" 1 0ti 
S 45 LET S i l:8 ) =8 ( C8 ) +P 
="■" LET F= I ( M- J+ 1 1 .--■■ ( C i; M+ 1 ) -'■£ ) '^M ) ) "« I 
5 LET F=INTfFS100+,5).--100 
:i60 IF J<M THEN 875 
365 LET P=D 
:;70 LET F=E 
375 LET fl=A-CT-P-F! 
388 LET H=INTfAS100+„5).^"100 
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SS4REri FINHL PRYMENT 

885 LET Ei=B5 

890 LET E5=IHT( (E5--Tl^l@0+„5).--100 

895 IF J<n THEN 905 

900 LET E5=H=0 

S'05 LET U=IriT ( (L'-P) *:i00+.5l .-'i©© 

910 LET E=INTi: fE-Fl*;i00+.5).^100 

915 PRINT TflB(0) ?C$i:Z) 3 
980 LET B5=FHPC£1,E51 
930 LET fl=FNP(30!H) 
940 LET E=FNP(53?EJ 
S'50 LET D=^FHPC6£jD) 
960 LET P=FNp!71jP) 

9b9REN CHECK FOR Er-iD OF ChLEHEhR YEAR 

'370 IF J=N THEN 1030 

975 LET Z--Z+1 

S'80 IF.J<Ci THEN 1030 

9 £5 5 IF J>C1 THEN 995 

'390 CO TO 1000 

'395 IF Z'i' i 3 THEN 1030 

1005 LET C=C+1 
1010 LET CS=C8+ 1 

1 ic^ I ■a r r^ 1 ! 1 1 

1 030 PR I NT The ( ) ? c 

1025 PRINT 

1330 NEftT J 

1035 PRINT 

1040 IF R<r THEN 1055 

1045 PRINT'TINflL MONTHLY PRYMENT IS " ? 

1050 LET E1=FNPC35jE1J 

1055 PRINT 

1065 PRINT 

1070 PRINT"TOThL INTEREST PAID IN " 5 rC3+1900+J-l 3 ? " IS "i 

1075 LET S(J)=FNPi:4£jS(J3 J 

1083 ne:-:t j 

i 084 DHTH JHN ! FEE ? MflR j RPR? MAY ? JUrC ? JULY 

1085 BfiTfl HUG 5 SEPT 5 OCT ?NOU 5 DEC 

1090 DhTH "JHMES JONES"? "100 CFiCTUS HUE. " ? "PHOENIKsHRIZ. " 

1100 DhTH 7j01?73?£500?31„91? ,06? . 11? 13 

9990 DhTH "FINI'SH" 

'5995 GO TO 440 
'5' 9 99 END 
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RU^ 



I r iSTFlLLMEMT LOFiM 1. .EDGER 



JHIIES JOr-IES 
100 CFlCTUS RUE. 

PHOEii ]■;-;? hriz. 

FiMOUriT OF LJjFiM 

IMT'EREST 

iriSURFlilCE 

pf-iCE FiMOUriT UE the: iiOT'E 



£500. 00 

15£.01 
31.91 



Finri Oi-i liiTEREST RFiTE 
EFEEj::TI0E RFiTE . 11 

IJFni;: OF LOFiti IS JU! Y 1? 1973 

ilOHTilS TO |-!FlTURITV 1£ 

nOMThii 't' PFfi'MErTr $ ££3„ibfc. 



dfite: 

DUE 



lIHiL 
PR ID 



E;fi! FlMCE F'RYOEF IK:REG 

F'EMFlir-i EFlLRM PRYMEMT 



riEW OR UMERRN REMRIM 
SHORT IMSUR It ITER 



RRriErn 

r-lTERE 



JULY 

FlUG 
SEPT 
OCT 
MOU 



iOHE 



£460.36 
££36.60 
£013.94 
1739. £8 
1 565 . 6c! 



£500. 00 

£304.64 
£106. 9£ 
1906.34 
1704.40 
1 499. 60 



31.91 


1 


5£.01 




57 , 00 


1 


£3 . fc.£ 


F!3 . 39 


r'£.50 


1 


07.18 


£1.44 


18.41 




3 ,-■ . fc.9 


19.49 


14.73 




70. 15 


17.54 


1 1 . 46 




'54 . 56 


15.59 



JFlH 

P-EE: 

IIFIR 
RF'R 



Ji IRE 

JULY 



1341.96 


1£9£.44 


1118.30 


108£.9£ 


894,64 


871.05 


j::^~'j::j C|0 


656 . F;:3 


■i-47.3£ 


440. £5 


££3 . fc'fc' 


£31.31 


. 00 


. tl0 



3. 60 


40 . 9i;- 


1 


3.64 


6. 15 


40 . 9£ 


1 


3.64 


4.10 


19,49 




9.74 


£.46 


1 1 . £.9 




7.30 


i. o C'.-:Z' 


5.84 




5 . 85 


0.41 


1 . 94 




3. 90 


. 0Pl 


. !30 




1 . 94 



TOTAL IITTEREST PR ID IR 197£ IS 97.45 
TOTRL irrrEREST PR Hi IN 1973 IS 54.57 
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INTERESTS 

DESCRIPTION 

When run, Interest calculates the accrued interest on installment loans. In 
addition it calculates that portion of the unearned interest that was earned 
during the current period. The print outs may be included in your operating 
statements for the current month. 



USERS 

This program is slanted toward the lender rather then the borrower, however 
it may be used by anyone who does installment buying. This program will keep 
a record of all of ones accounts for tax purposes, budget purposes, etc. 



Before the program is run 
Sample data is presently 
leted before running your 
due from all accounts, pe 
consecutive months after 
ed interest is figured us 
earned during the period 
ning of the period; and " 
loans mature. From this, 
be 2/3 's of the interest 
rent month. 



enter your data starting in line 1000 to 1090. 
contained in lines 1000 to 1090; this should be de- 
data. Enter the total amount of unearned interest, 
r month for the rest of the current year and for 48 
the current year; in chronological order. The unearn- 
ing the sum-of-the-months-digits method. Interest 
= 2/(p + 1) times the unearned interest at the begin- 
p" is the sequential number of the period in which 
interest earned on loans maturing next month would 
unearned on those loans at the beginning of the cur- 



LIMITATIQNS 

Lines 50 to 430 contain DEF FNP and FNEND statements. The program should exe- 
cute in 4K Bytes of memory. 
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1 1!" 



1 E'REM 

l-IPEM liESCRIPTION— COMPUTES RHD PRINTS THE fiCnp! IFD INTEREST 

^SREM Ori IMSTRLLMENT LOfiNS. 

1 bREM 

ISREN IHSTRUCTIOMS —DRTfl BEGINS IN LINE 1009 FIND CONSISTS OF 

£'0REri UNEHRNEIi INTEREST BY MONTH OF MhTHRTTV. 

:>r'r::'C"hi 

u.L_,r-.,Cr E 

c'bREM 

30 DIN €'$(.12.} 

40 REM FUriCTION TO PRINT RESULTS IN DOLLRRS HND CENTS FORMflT 

50 REM RND TO ALIGN DECIMRL POINTS 

60 HEF FNPiNyj 

70 IR r!y=0 THEt-{ 4£0 

80 LET P9=0 

90 LET C9=INT (N9*:100+„ 5) 

100 LET F9=INTu::9.--100) 

110 LET R9=Cy~100*=F9 

1R0 LET P9=P9-^-l 

133 LET T9=INTCF9.--10) 

1 40 LET ( P9 ) =F9- 1 0*^T9+48 

130 LET F9=T9 

130 IF F9>0 THEri IRO 

17^0 LET O(0)=P9+3 

1 80 LET ( P9+ 1 ) =46 

190 LET UiP9+iE:)=INTiR9^-10J 

3 00 LET ( P9+3 ) =R9-0 C P9+S j *^ 1 0+48 

310 FOR 19= 1 TO P9.--3 

£30 LET T9=0(I9J 

330 LET U(I9J=0(P9+1-T9) 

£40 LET 0i:P9+l-J9J=T9 

£50 NEXT 19 

£60 LET 0i;P9+£l=0i:R9+£j+48 

£70 CHRNGE TO Q$ 

£80 LET U9=0 

£90 LErr U9=U9+i 

300 IF U9=O(0i THEN 370 

310 IF 0n.i91<>46 THEN £90 

330 FOP U9= 1 TO 7-U9 

330 LET PCU9)=3£ 

340 tWXT U9 

350 LET Pf0)=U9 

360 CHANGE P TO M$ 
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370 CHRHGE U TO US 

390 PRINT t1$? "S";Qs 

400 LET FNP=C9---100 

410 GOTO 430 

4£0 PRINT" 

430 FNEND 

4 40 FOR 1=1 TO 12 

450 REflD C$(I) 

455 NEXT I 

460 PRINT"WHfiT IS THE CURRENT MONTH fiND YERR(E.G. l£!l97£"P 

470 INPUT H5fil 

430 IF Rl>99 THEN 50O 

490 LET Hl=fll+i900 

500 PRINT 

510 LET N=l£-fi+l 

520 LET Z=H 

530 PRINT TREi:ic:)?"EflRNEIi INTEREST - INSTRLLNENT LORNS" 

540 PRINT TRIKISJ?" " 

550 PRINT "MONTH OF" ? TREldO) s "ERRNED" 5 TRBi:40) 5 "REMfllNING UNEf^tCH" 
■ri 60 PR I NT " MRTUF' I TV " ? TRB ( £0 ) ? " I NTEREST " ? TRE ( 48 ) ? " I NTEREST " 

570 PRINT " " 5 TAB (£0) ? " " J TRB (48) I " 

575 PRINT 

530 PRINT Hi 

585REf1 »^:*«:*- MRXIt'lUM MRTURITY 4 YEARS it^:^M»Mm:^M^.m^Mi^^M 

590 FOR J=l TO N+48 

600 RERD P 

605REri FORMULR FOR SUN OF MONTHS DIGITS ^^^^^sk^jis 

6 1 L ETS= I NT I. P« i; £.-•■ ( J+ 1 ) ) « 1 eO-s- . 5 ) ." 1 W© 

630 LET T=T +S 

63£i LFIT R=P-S 

640 LET R1=R1+R 

650 PRINT " "?r:$(7) ?TRB(18); 

660 LET S=FNP(SJ 

670 PRINT TRB i 40 15 

630 LET R=FNP(R) 

690 PRINT 

700 LET Z=Z+1 

710 IF J=7£+N THEN 808 

7£0 IF .J<N THEN 806 

730 IF J>N THEN 750 

7461 GO TO 760 

750 IF Z<13 THEN 808 

760 LET Z=l 

770 LET fll=Hl+l 

780 PRINT 

735 IF J=N+48 THEN 888 

790 PRINT Hi 

800 NEXT J 

810 PRINT THEf£0);" "ITfiB(4£)l" " 

8£0 PRINT "T0TRLS";TRB(18) J 
830 LET T=FNpiTl 
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B "40 f-"h" 1 HT TRB 1 40 J 5 

850 L.ET Ri=Frip!pi:i 

G&y PRINT 

8 i-''y DH 1 R !i-lriUFlK'T' ? r E Jr'F'l.ihlKY 5 MflRCH ? HPF' I L J MFlN' ? _iUt1F ? JiJL, V 3 FlUGLlS"! 

888 I^HTR SEPTEMBER ? UCTO EER ? NOUEMBER ? DEC EMEE R 

S99REri 

908 REM EriTER TOThL uriEfiRriED IfiTEREST IM BRTR STRRTIMG HT 

910 REM FOR EflCH ^!^r•iT•H OR MRTURITY V'i rHRnr-iuLOGICRL ORDER. 

1 000 DRTR SOW . ^50 ? OS > 35 5 1 56 = 55 ? c'FW =. S6 ? iE;?" . 7*7 ? 56 . £9 

-i 'OCLK.' Uri f M C = -_!=+ > C-w ? i i -ft' . *!■ i ! i _!•" i . ;= J X CC-O = J'Z ? C.r_ !-' r> . C -J |i C.H- _! _1 . t- 



. I ni- ' 1 000 



Vi'JO DRTH 



1 



? c.,._ior 



■ 5 wC==r=c! u ':~- -.' 5 Z- {' _'^f b X ? ^'c!U"J 



1 iJ40 BflTH 43::.6 . ,■- 5 5S 1 9 . 7c; ? ii49H . 84 ? 3SS3 . 03 ? 4S 1 T" . 39 ? 1 St:7 . 29 
1 050 DRTH i 367 =, 08 5 tiOOO . 9 1 ? 39 1 £ . 03 ? 7773 . 35 ? 54. 1 4 , 93 j 1 1 038 . 33 



1 ^~1-;-".iyi TSM'i Ci. d.i--.i^.L 



iMt.y HH 



i-fct-w = ~:! i' 5 (' < (' 



D'J? Y"-Jf''c!. 1 f"5 r'lyO. t"'b? Cm 



107^0 DRTR 0? 0? 790= 34 ? 360= 33? J 344. 36 

1 Ufc'0 DflT'fi ? w 5 S"::*':' . 64 ? y J y J 436 . 69 

1 =390 DRTR 5 £7 i . 43 ? O ? ? O j O 
'39999 Ef'ID 



iV-.'j*'!. -: .■..-•'.;.' . v.. 






I--'- \ 



'.?'..*/.H 



c V'. ;. "^'' ' -V ■ 



■-i 



■/' 
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INVESTMENTS: 

DESCRIPTION 

This program determines the annual rate of return for an investment and com- 
pounds it for each year data is provided. Additionally this program provides 
analytical data expressed in percentages for the various holding periods of 
your investments. 



USERS 

Businessmen, housewives, etc. anyone who invests either casually or on a reg- 
ular basis will find this program helpful and useful. 



INSTRUCTIONS 

List the program for information concerning data entry and operation. The data 
may be entered into lines 1000 to 1100 before the program is run or it may be 
prompted for by the computer during program execution. When the program is run 
it will ask if you want instructions. There are three valid responses to that 
question. 

1. DATA - data is already entered and ready to run 

2. YES - the program will prompt you for the desired data 

3. NO - You must enter the data without any prompting or instructions 

LI MIT A T IO N S 

Line 110 contains W(25,25). This program requires matrix operations. The pro- 
gram will store in 5K Bytes and execute in 12K Bytes of memory. 
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Mlri I I ':> 



1 



OREM TiESCRIPTIOri— THIS BRSIC PROGRfiM COMPUTES fi MnTRIX OF 
mREM returns for HN liiUESTMEMT In fl SECURITY? IT THEN COMPUTES 
5REn HH fltJERRGE RETURN FOR R PURCHfiSE AT THE BEGINNING OF R 
YEflR? SELLING RT EflCH OF THE FOLLOWING YEhR ENDS? AND 
COMPUTES AN flUERflGE RETURN FOR RLL DESIGNRTED HOLDING 
PERIODS. IT RLSO COMPUTES HN H'-CRRGE RETURN? STRNDflRD 
ICUIRTION RND COEFFICIENT OF WR I ATI ON FOR DIFFERENT 
I iri--ir-"^" i-'.0\ nT|--jr c=irpTnT!C- 



5'=;rem 

bflRFM 



80REM INSTRUCT I ONS--SHMPLE DATA-NO. OF YRS.jBASE YR. -DIlilDENDS 
85REM PER YR,? ANNUAL CLOSING PRICE ARE PRESENTLY 

90REM Er-iTFRED STARTING IN LINE 1800 

95REM TYPE "RUN" AND PROGRAM WILL ASK IF YOU HHi.iE 

laAREM ALREADY ENTERED OR WISH TO ENTER DATA. 

115 PRINT '^DO YOU WANT INSTRUCTIONS FOR SUPPLYING DATA"? 

1S5 IF As="DATH" THEN £48 
f:==^NO" THEN £65 






140 PR I NT "FOR HOW MANY YEARS DO YOU WISH TO ENTER PRICE AND DIUIDEND" 
145 PRINT'^DRTA? REMEMBERING THE NEED FOR A BASE YEAR. E.G.? 10 YEARS" 
150 PRINT"OF DATA ARE NEEDED TO GIUE 9 ANrWAL RETURNS. THE MAXIMUM" 

155 PRINT"NUMBER OF YEARS IS £5. " i 
160 INPUT N 

170 PR I NT "WHAT IS THE FIRST YEAR FOR WHICH YOU WISH TO ENTER DATA"? 

135 PRINT"ENTER THE DIUIDEND PER SHARE (DPS) AND THE CLOSING SECURITY" 
190 PRINT"PRICE CCSPl? SEPARATED BY R COMMA? FOR EACH OF THE FOLLOWING' 



J qs P'pT|--j-f 



'HRSs 



£00 PRINT 

£05 PRINT TAECIP) ? "DPS? CSP" 

£10 PRINT 

£15 FOR 1=1 TO N 

C. C '<J 



■ T f.JT '■ S-TPm " 



?Yl+i 1-1)1 



; NPU f D C I) ? P C I ) 

T 
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£35 GOTO £85 
£40 READ HjYi 
£45 FOR I=i TO N 
£50 RERD Dd) jPil) 
£55 NEXT I 

i- C'tl ••jU 1 'J CC-_i 

£k5 print 

£70 PRINT "H0= OF VEflRS? FIRST YEAR"; 

£75 INPUT N?Y1 

£80 GOTO £00 

£85 PRINT 

£90 PRINT" 

300 FOR I = i TO (N--1) 
305 FOR J = (I+l) TO N 
310 LET B = 9 
315 FOR C = i TO 5 
3c:0 LET Q = = 1 to; 

330 LET E = 

335 FOR F = (I+l) TO J 

340 LET E = fDiF)^«(l--i Cl+E)t(F-I) n ) + E 

345 riEXT F 

350 LET E = E -?■ P ( Jj *^ ( 1 ^ ( ( 1+B3 1 ( J-H ) ) 

355 IF F-pri)>0 THEN 3£5 

3!S0 LET B = B-Q 

365 NEXT C 

370 IF B = THEN 38ti 

375 GO TO 390 

380 LET B =_-.S 

385 GO TO 315 

390 LET WCIs J) =E 

395 NEXT J 

"I "-.'■--* I i-.™.-'t t i. 

4yg pp|5s|T 

410 PRINT 
415 PRINT 
4£0 PRINT 
4 £5 PRINT" RETURNS Ot\ INUESTMENTS" 

430 PRINT" " 

4 35 PRINT THEClin"i:RNNUflL RATES COMPOUNICD mNUFlLLYl " 

440 PRINT 

445 PRINT 

450 FOR K=1 TO CN-1) STEP4 

455 IF N-i-K<4 THEN540 

4 60 PR I NT " TO " J Y 1 +K ? Y 1 + ( K+ 1) ? Y 1 + ( K+£ ) ? Y 1 + ( K+3 ) 

465 PRINT"FRUM" 

470 FOR 1=1 TO K 

475 PRINT Yi+fl-n? 

480 FOR J=lK+l} TO (K+4) 

485 PRINT Wa?J) J 

490 NEXT J 
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495 NEXT I 

5 00 PR I NT Y 1 +K 5 " "5 W 1: K+ 1 J K+£ ) s W ( K+ 1 ? K+3 ) j W C K+ 1 ? K+4 ) 

505 PRINT Yl+K+l?" "?" " jW (K+SsK+S) ? W(K+£jK+43 

510 PRINT tI+K+E?" "?" "5" "sW(K+3jK+4) 

515 PRINT 

5£0 PRINT 

5 £5 PRINT 

530 NE^TK 

535 GO TO 66-5 

540 PRih^T" TO"? 

545 FOR I=K TO CN-l) 

550 PRINT YI+Ij 

555 NEXT I 

560 LET Q=4-fN-K} 

565 GOSUB 645 

570 PR I NT "FROM" 



575 


FOR 1=1 TO N-1 


580 


PRINT Y1+ 1:1-1:1 5 


585 


IF i<=i:n-!:n-k:i:i then 610 


590 


LET Q=I-K 


595 


GOSUB 645 


600 


LET J=K+1+Q 


605 


GO TO 615 


610 


FOR J=K+1 TO N 


615 


PRINT Wi:i5J:i5 


620 


NEXT J 


685 


LET Q=4-(N-K) 


630 


GOSUB 645 


635 


NEXT I 


640 


GO TO 665 


645 


FOR H=l TO Q 


650 


PRINT " "? 


655 


NEXT H 



660 RETURN 

665 PRINT 

670 PRINT 

675 PRINT 

68ei LET X=0 

685 LET Y=0 

fc.90 LET U=0 

695 FOR 1 = 1 TO iN-i:! 

700 FOR J=fl + n TO N 

705 LET X=WfIjJ)+X 

710 LET Y=Wi:i5J:i+Y 

715 NEXT J, 

7 £0 PR I NT " RUERflGE RETURN FFCM " S Y 1 + ( I - 1) J " = " 5 X/ ( N- 1 ) 

785 LET M=i:N"I:i+U 

730 PRINT 

735 LET X=0 

740 NEXT I 

745 PRINT 
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7tM 

I ■_' V-.- 

780 

795 
800 

c= kj O 

f\ 1 5 



880 

9 1 j 

905 
9 1 a 



PRINT" flUERfiGE RETURN FOR RLL" 

PR INT" POSS I ELE HOLD I r !G PER I ODS = " 5 Y.-U 

PRINT 
PRINT 

PRIi^^T" " 

PRINT 

PRINT 

PRINT TAB I 35) ? "RUERRGE" ? TfiE (47) J "STflNIifiRH" ? THE (61 ) J "COEFF. " 

PR I NT TfiE C 36 ) ? " RETURN " ? TfiE C 47 ) J " DEU I RT I ON " '. TAB ( 68 ) ', " 'JflR I RT I OH " 

p=f;;.jf-4T 

LET U3=0 
LET N£ = 

LET X£ = 

FOR I = 1 TO (N-l) 

FOR J = 1 TO ri 

LET X£: = 14 '• J ? J+ J J -r X£ 
LET US = ijrjjj+lj + U£" 

FOR J = 1 TO H 

IF J + I > N THEr-l 385 

LET Y£ = iwrj? Jt-I j-'v::2Jt£+-V£ 

LET U3 ^ i U i J ? J+ 1 j } t£+U3 

r^<T J 

LET Y£ = SQR(Y£.^^f J-i) j 

PR I NT " FOR ALL ■' ; I ; ■' YERR HOLD ING PER I ODS : " J TRB ( 35 ) J K£ ? TAB ( 47 3 5 Y£ ? 

PR I NT TAB ( 60 j J Y£ />!£ 

PRINT 

! C-f VO — iT-i 

!.-l_ i !--!t.... >U- 

NrvT T 



980 IF U-i =0 THEN 930 

9£5 LET C3=SQR( (U*^i.'3-U£SU£).-"'U-^'(U-i) ) 

930 PRINT 'TOR ALL POSSIBLE HOLDING PERIODSs "j TflE(351 JUSAJ; TRE (47) 5 035 

9 35 PR I NT ! AB ( 60 ) j 03 .■-' ( UB^^Ki ) 

940 PRINT 

945 PRINT 

950 PRINT 



Q ■=■.■=■ P! 



PINT" 



1000 iiATfi 10J 1968 
1010 DATA 0j39.85 
1080 DATA 1.0£j43.65 
1030 DhTH 



1 050 nfi' A 
1060 DATA 1 
1070 DATA 1 



£0?60. 1£5 

305 60. 00 

30? 58. 00 
305 50.35 



1 080 DATA 1 , 30 5 49 „ 1 £5 
1090 DATA 1.30 5 47. £5 
1 1 00 DATA 1 . 40 5 66 . 50 
9999 END 
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IriUESTMEM 



ijCi Yijij wHrir iriSTRur-TiOHS FOR SUPPLYING hhTh ?ye:s 



-■!.■ .jMi n> ;■;■,■ Y'. M— . UCi ■rTilJ IJISH TO PriTER PRICE FiMD iJlUrnEMTi 
'I, il'i^ !■:'■..'!■ Eh'] i I.', THE riEEl! FOR fl EASE YEhR„ E.G.? lO YEARS 
(T iiMT'i '"ii-E Ml-CLn-n TO GIUF 9 flMMURL RETURHS. THE MH;-;iMUri 
i"(l-;t!:-'- E V l-iP;. IS £;5. ''13 

!HMT is E-it FIF:.i YEAR FOR WHICH YOU WISH TO ENTER DHTFi ?i96£ 

ENTER THE DIOITiENri PER SI-IHRE CUPS) flNIi THE CLOSING SECURITY 
PRICE iCSPU SEPERflTED BY Fl COMMFh FOR EACH OF THE FOLLOWING 
'r'EARSs 

DPS? CSP 



Y' HP 191- 

■,'li-lF' l'~ic 

, -i' ' 19i- 

,- ;. 1 -I,: 

1-lF lY-_ 



li ::-'. -I 



■1= 1 



I „ !- 



■] . 1 i i' 'H-.. . 1 



I- '1 . ~IHi r, 1„ i.. '.I 

" ''1 , '!M, ' .:;. ".11,1 

I if !•-•'- 'i. 91'!. "-.J,P'=". 

I. UP 1 -'.'u la ';■. l7. YE 

Fni-' lOr'l 'U „ 1,1-!:,. =. 



RETURNS^ ON INUESTMENTS 
(flrir lUAL PATHS COHPOUr-iCiEIi ANNUA! LY) 



TO 




1963 


1964 


1965 


F'ON 












196:2 


. 1 3808 


.1178 


.17781 




1 96 3 




.09681 


. 19796 




1964 






. .3117!: 




1 SE"^! 









1 966 



13695 



i ■■:: 



:■ r"99 



ill 9 In 4 
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MORTGAGE: 

D ESC R IPTIO N 

This program provides a rapid comparison of mortgage terms. All of the parti- 
culars of the mortgage are printed out for all combinations of the input mort- 
gages. 



.U.SER3 

This program can be used by anyone who is planning to purchase something that 
is very costly and for which payments would be spread out over a period of 
years rather then months. Purchasers of such items as: a house, a car, a boat, 
a piece of land, or even an airplane could benefit from the information pro- 
vided by this program. 

INSTRUCTIONS 

When the program is run it will ask for all necessary problem data. For addi- 
tional information list the program. 



LIMITATIONS 

Lines 230 to 510 contain DEF FNP and FNEND statements. Line 490 contains a 
Change P to P$ statement. Lines 540, 570 and 600 contain MAT Input statements. 
Line 610 contains a NUM( ) statement. The source code will require 3K Bytes 
of memory for storage and 4K Bytes will be required for execution. 
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1, 1 OREM 

1 30REI1 BESCRIPTIuN — THIS BASIC PROGRfiM mrip! ITES RND PRTN"T"s 
I'^yRt.M MORTGnCE SCHEDULES FOR URRinilS MnpfcflGE 

150REM TERMS. 

1 byREM 



:= :' :ii 



Ir-'HRLM iriSlKUCTIuHS--aLL DRTR IS ENTERED flS INPUT DUPING RUN. 

180REN 

£'00REM 

(110 Tilrl Z(10j ?Rf 10} J YtlHJ 

££0 DIfl P(15) 

£■ :3a DEF FNP i P 1 ? P9 ? PS ) 

£40 LET r"0 = 

£60 IF Pi :■■■=■■ THEN £90 
£70 LET Pi = RBSCPil 

£90 LET P(0} = P9 + F-"8 + 1 

300 LET !=■£ = INT (PiSMigtpy) + .5) 

310 FOR P4 = 1 TO py 

3!£0 LET P3 •= P£ - IMT ''P£--'10) *10 

330 LET PiP9 + P8 4- £ - P41 = P3 + 4S 

340 LET P£ = INTCP£.--''10:i 

330 NErtT P4 

360 LET P(p9-f-i) = 46 

370 POP p4 = 1 TO p9 

330 LET P3 = P£ - INT tP£.-^-i01 ^ly 

390 LET P(P9 + 1 - P4j = P3 + 48 

400 IF PS = THEN 430 

410 LET P£ = INT(P£.-'i0) 

4-50 IF py = 8 THEN 470 

440 LET PCP9 + 1 - P4) =45 

450 [_ET P0 = 

460 GO TO 480 

470 LET Pi'P9 -f- 1 -- p4"! = £;£ 

480 HE:^-:T P4 

490 CHRNGE P TO P$ 

500 PRINT F>1 

510 FNEND 

5£0 REM 

530 PRINT ^'RMOUNTS TO BE CONSIDERED"? 
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5^40 MRT INPUT Z 

'559 LET Z0 = riUMOO 

560 PRINT "RfiTES TO BE CONSIDERED"? 

570 MRT INPUT R 

580 LET R0 = NUMC:-:) 

"■■"C --'-■I'-'-r- "YERRS TO BE CONSIDERED"? 

- 'Z ^ R~ ,-1JT Y 

, " = r-iuncK) 



1 I L! /y 



"OR H LORN OF "? 

=' = FHP(H?75£] 



' _ 


-l"^ 






_ r T 


"i 






-f: 


— 


Ii 


riurij 


rc 


-r- 


'^INTEREST 


.-,[. 


rr I 




'^ RRTE 


tERF 


= ':f 


= - 


= 1 TO R0 





DECRERSE INCRERSE" 
MONTHLY TOTAL NOr^THLY TOTRL" 
PRYMENT INTEREST PAYMENT INTEREST" 



"" _ = R (R9 ) .-•■1200 

I "" . = 

--~ - (fl*R3J •' C l-( i.^i" ! +R3) tf 1?*:YCY3) 3 ) ) 

~ LL" _1 = M*;iP«vrY33 ~R 

- ~ LL~ :=< =. FNPiR(R9) j£?33 

870 LET 09 = FNPlY (Y3) J 6?£3 

390 LET 09 = FNPCHjSsP) 
900 IF N£ = THEN 930 

910 LET 09 = FNP(M1-M?95£j 

9£0 LET 09 = F>!P(Ii - I£?75£) 

960 PRINT 
930 PRINT 
1000 ppiNT 

i0£0 PRINT "DO YOU WISH TO CONSIDER ANOTHER SET OF TERNS"? 

1030 INPUT 25 

1040 IF Z> >= "Y" THEN 53© 

1050 END 
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liuRTGFlGE 



h:ur-i 



iinuUMTS TLi BEI CLiMSIUEREJi ? 195013? 30090 
F-FlTES TO BE COMSIIJEREri ?6?7,5 
tEhRS to be CONSIDEREI! ?20j30 



TjR i-1 L-OFiil OE l9'5Bid 



INTEREST 



J11EER 
OF" 

■ERRS 



DECPEFlSF 

MOriTHLY T'OThL MOMTI-II 't' 

PH'i11E:r iT I r-iTEREST PfiYilEriT 



liiCRERSE 
TuTRL 

irrrEREST 



i~. = t'i P! '^:; £ . 1 3 9 „ 7 1 4 £ i3 = 9 9 

6 . gi00"„ 3& . i30 1 1 6 . 9 1 ££'508 . 46 



S559.47 



"500^ 

500°-;; 



£0,00 157,09 18£01.7' 
30,00 136,35 £9584,8' 



•1,74 



11383,09 



F'Oi^i' F-! LOFiri OF' 



,;:;i::iyi;1H. !<ll--1 



NUi'lEER 
:rTTEREST OE 

ROTE YEflRS 



MOrriHl Y TOTRL 

PnYl'lEMT IMTERES1 



IJE'CREFlSE! 

i10r-iTHi....Y 

PfiYMEMT 



INTEREST 

TOTAL 

INTEREST 



6 , 000 >, c:0 , 00 c' 1 4 , '::':3 

6 . OtiO^^;; 30 . 00 1 79 . tJP 



34751 



:>. fib 



J. 3 1 s::'8 , '-i£ 



7,500°;; £0,00 
7, '^00°; 30.00 



c'4 1 . bki 
£09.76 



£30 0£. 73 

'-!■ Jj], ■ ,1, lo 



.,:! 1 , y I 



1751 £,41^ 



DO YOiJ RISH TO COr-iSIiJER RNOTHER SET OF' TERMS RNO 



■A) 



OPTIMIZE: 



DESC R I P TI O N 

Optimize calculates cost improvement savings on plant, office, store, etc. 
layouts. The savings is arrived at through more efficient placement of re- 
sources within the plant, office, store, etc. 



..»»f V^ twi I \ v^ 

This program will be of value to managers of departments where materials are 
handled or transferred or where some type of exchange flows between depart- 
ments within a business. This program could also be used by home and apart- 
ment owners to obtain the maximum usage of the space available. 



INSTRUCTIO N S 

Enter your data in lines 5000 to 5500 before the program is run. List lines 
70 to 109 for the required data format as well as input instructions. For 
additional information list the entire program. Lines 5000 to 5301 contain 
sample data and should be removed prior to entering your data. After your 
data has been entered type RUN. The current size of the DIM statements in 
line 250 sets the largest number of departments this program will handle 
at 40. For larger problems increase the dimensions accordingly. 



L IMITATIONS 

Line 250 contains two dimensional arrays. The program requires matrix opera- 
tions. Line 310 MAT Read and line 460 MAT = ZER statements are present. In 

line 1000 an ON GOTO statement is used. The program requires 8K Bytes of 

memory for storage. Execution length is a function of the DIM statements. 

With the present capability of 40 departments the program will require about 
40K Bytes of on line memory for execution. 
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5RlM description — UnLL.nHNN"Rijni_ fl.rnt lrmout r!uDE:L.= Gimets cnniEiE: df" 

bRErl three: LRVnUT HEZURISTICSS CRRFT? RNM IPIPRnMEFiEINT? HND RHNKED 

7 REM F-Rncii.jf=T. Yau input the: PL.Rr-4T configurrtion bm de:prrtre;nt£? flgu 

8 REM nRTRIX FDR EIXCHRNGF-s RRDNE DE:PRRTF!Er-4TS? COST klEIGHTINGS 
9RLM FDR ERCH DEPRRTFlEr-4T? RHD THE STRRTIND Sai-UT I af-4S . HULOklS FDR 

IQRlM fixed deprrtfients. 

1 1 REM 

7aREM INSTRUCTIONS— 

74kEM liRTH STATEMENTS BEGIN RT LINE 5800. SAMPLE DATA APE Ci ippENTLY 

75REM ENTERED IN LINES 5090-5301 INCLUSIUE AND SHni ILD "RE 

76REM EXCHANGED EOR DATA PERTINENT TO THE PROBLEM AT HAND. THE 

77REM PROGRAM WILL HANDLE LAYOUTS WITH 40 DEPARTMENTS MITHHHT 

7SREM CHANGING THE DIM STATEMENTS. 

r'9KLM 

80REM i. LINE 5000s THE RECTANGULAR DIMENSIONS OF THE LAYOUT 

81 REM AREA (NUMBER OF DEPARTMENTS ALONG THE SIDE BORDER OF 

8£REM THE PLANT AND THE NUMBER OF DEPARTMENTS ALONG THE TOP 

83REM BORDER OF THE PLANT) AND THE NUMBER OF STARTING 

84KLM SOLUTIONS. THE EKRMPLE IS FOR fi 2 BY 3 PLANT MITW 

85REM £ STARTING SOLUTIONS. 

86REM 

87RE:M £. LINE 5100s THE FLOW MRTRIK (MEASURED IN PRODUCTS 

88RLM HAliliLED? FACE TO FACE CONTACTS? OR SOME OTHER APPROpRIRTF 

89KEM MEASURE) FROM ERCH DEPARTMENT TO THE OTHER DEPARTMENTS. 

91kEM 3. LIME 5£00s THE COST UECTOR GIUING THE COST WEIGHTINGS FOR 

9£REM EACH DEPARTMENT 

93REM 

94ggM 4, LINE 5308? THE STARTING SOLUTIONS, THE NUMBER OF THE 

95r::EM DEPARTMENT IN ERCH LOCATION (DEPT. 1 IN LOCATION 1? 

96KEM DEPT. £ IN LOCATION £? ETC.?WOULD GIUE i?e53?4^FTC, 

97h:EM DEPT. 1 IN LOCATION 3 AND DEPT. 3 IN LOCATION 1 WOULD 

98KEM GIUE 35 £5 1 5 4? ETC. 3 . THE DEPARTMENTS WHICH ARE FIXED AND 

99REM iJHOSE LuChTION CFiN NOT BE EXCHANGED MUST ALSO BE INDICATED 

100KLM AFTER THE LOCATIONS BY INDICATING THE TOTRL NUMBER OF 

101KEM FIXED DEPARTMENTS? AND THEIR RESPECT I UE NUMBERS. TR NO 

10£REM DEPARTMENTS ARE FIXED, fl M MUST BE ENTERED. EXAMPLE; 

1 03REM 

104RFM l5£5 3j4?5?b?0 MEANS NO FIXED DEPARTMENTS. 

1 05REM 

106kEM SsE? l?4?5?b?£?£5 4 MEANS TWO FIXED DEPTS.jE AND 4 

107REM IN LOCATIONS £ AND 4 RESPECT I UELY 

1 08REM 

109REM s;sss;s;«s;^^s«-ffi«ffiSHp:;«aftS;s 

£00 PRINT "THIS WILL HANDLE THREE LRYOUT HEURISTICSs" 
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£10 PRINT "CRHFT ( = 1)? ANY IMPROUEMENT i=2}, AND RhNKED PRODUCT i.=3) . " 

££0 PRINT 

£39 PRINT "HHICH HEURISTIC 1. £? OR 3,"? 

£40 IMpUT Z0 

£50 DIM H(40! 40) ?CC403 40) ? 6(40) ? 8(48? 403 ? PC 48) jQ(40) ?Ff£00j 3) ?K(40) 

£60 REM fROWS! #C0LUMHS5 #SThRTING SOLUTIONS 

£70 REfiD Mljri£?Z9 

£80 LET M9=ril^M£ 

300 REM FLOW MhTRI;< 
310 MflT REhD FiCM9?M9) 
3£0 REM COST UECTuR 
3 £9 FOR 1=1 TO M9 
330 RERD B (I ) 

350 FOR J= 1 TO n9 

3b0REM COST WEIGHT FLOW MfiTRIK? FRON-TO 

370 LET Ca? JJ=EilJ*^Fn I? Ji 

330 NEVT J 

400 FOR J=l TO My-l 
410 FOR I=J+1 TO M9 
430REM COST WEIGHT FLOW MRTRIK? BETWEEN 

4 30 LET C ( 1 5 JJ =C ( 1 3 J) +C (J? I j 



470 L^ ' K=H 

430 REM INITIHL SThRTING SOLUTION 

489 FOR 1=1 , TO M9 

491 NEKT I 

500 FOR 1=1 TO Ml 

510 FOR J=l TO M£ 

5£0 LET K=K'-i-1 

530REM INITIAL LAYOUT MRTRIK 

540 LET AiIjJj=PfK) 

55u riLr-!T J 

"Jt'U rii_,'"-: 1 i 

570 LET K=0 

530 FOR K=l TO M9 

590 FOR 1=1 TO Mi 

600 FOR J=i TO M£ 

610 IF nCI?Jj=K THEN 648 

6£0 NEXT J 

630 rCXT I 

640 LET U=I 



660 r UK H=i TO M9 

670 FTiR 1 = 1 TO Ml 
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; ( K" J H i =hTvP. i 1,1— T 1 4-i^ 



i:iSfy— . n 



riF>r 






UlSTflMCE MHTPTV 



I.L1 k> M I i-^Yf |! 



FOR OTHE'R 















ip i TfiG Sni SlTTilN' 












IhSTER PFiMKED PPOBliC 
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1170 IF ril=@ THEN liEllQ 

1180 FOR j£=i TO rn 

1190 GOSUB 1600 

1S19 MEKTIl 

1£S0 IF K3=0 THFM i£40 

J £30 GOTO 1 0£0 

1£40 FOR 1=1 TO £ 

1 £ 60 GOSUE £5 1 

1 ■:■■ 



IF K3<=0 THEN i£90 



1£80 NEXT I 

1£90 REM «TERMINhTE»^ 

1300 PRINT 

1310 PRIHT'TINRL LfiYOUT" 

J 3£0 GO SUB 1890 

1340 NEXT Zl 

1360 REM SUBROUTINE «COST« CRLCULhTE INITIAL COST 

1 37ki ll 1 3y=Jc!=y 

1380 FOR >-l = l M9-1 

1390 FOR X£=X1+1 TO M9 

1400 IF QiXlJ >=Q(X£) THEN 1438 

1413 LET S9=S9+C (Q (rtl ) J Qf;--:;£) ) *^CCX2? XI ) 

1 4pfi GOTO 1 440 

1430 LET S9=S9+CtQiX£} jQCXlJ )»tC(X£?Xi1 

1440 NEXT X£ 

] 4=;!7i NFVT X1 

14e.0 PR I NT 

1470 PRINT" InlTIflL LflVOUT: " 

1480 GOSUB 1890 

1490 RETURN 

1500 REM SUBROUTINE s^SWITCH* SET UP SWITCH TRELE 

1510 LET Ni=Hl+l 

15£0 LET FlNis i)=I9 

1530 LET FCNl?£i=I5 

1540 LET FiNl?3)=Jfc 

1550 IF J6<=J9 THEN 1580 

1560 LET J9=J6 

1570 LET J8=.£*t.J9 

1580 RETURN 

1590 REM SUBROUTINE «EXCHhNGE5«« MAKE THE SWITCH 

1600 LET J7=0 

1610 FOR 1=1 TO Nl 






il53J<J7 THEN 1656 



1630 LET J7'=Fil53} 

1640 LET 14=1 

1650 NEXT I 

1660 IF J7<=0 THEN 1770 
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1 6 i'0 LL ! I y ^r C 1 4 ? 1 ) 












^;UL,i ! I riE. S!:£>:;f;f-|C|f'^Q£C 

1 J =■ 1 5 

Q '1 .=ri !' T i^^ ^) 



wEfl SUoKUUTIMl ^^P'RINTs^ print the LflYOUT 



; f I' . I— T 1 ■*:4 I'M!" 



FiUEPRGE 



M- IHE CURREriT LhYOUI 






SUHKUUlirC s^PRlK-NISE EXCHfiHGE*^ ChLCULhTE hLL P-W 












~U I hi I J J ? ^ : 1 1 ::■ I I 

=C C Q (1 5 J ? Q I J ) j 
J >Q (19) THEi'l £ 

-C' ( Gl C 1 9 1 ? ij! ( J ) j 



■ 1 --L-- 



l I, S -. ! ■ 
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E'180 LET C£=l:(Jj ly) 

u'l-/ LET J6=J6+CCl-C£)*(Di-D£3 

,:e-:-;- "<l. t j 

,JLi: =Lr;jRN 

;='-z -Ff- subroutine ^^product^ set up the product trele 

.•d'zz- ~c^ 1=1 to ri9 

, ^ i^fT- '_E~~ F" C I ? 1 ) —0 

-1=0 i- ii)<=-i then esse 

1 ?£0 ^C^ J=i TO M9 
r sLTs jr :=J THEM £3713 
cz-.-:' :^ "(DJ-QLJj THEN £318 
'z.-'- LE~ D1=C (Of 1 1 J Q rjj 1 

.- : 1 :■ _ LT D 1 =C ( Q ( J ) ? Q (I j ) 
'-'£-? li^ _1 = 1 THE't-1 £370 

.■::^ I-' i>J THrN__£3b0 

. I-i" '_E~ F(I J 1 j=F ( I J 1 J +Cf J? I l^Di 

^"'o '-■:"":. £370 

'?!.? LE" Fl I? i J=FiI? 1)+C(l5 Jj^Dl 
._ ;T:: r-E"' ,- J 

, -.-J IF j£>F(J5l) THEN £'440 
, - --^ L_r" J£=Fi.J? 1 i 

--!'■- Lt~" FCI4?ij=0 
.- -' TV L L~ J£=0 
.- ^ :=" r:F - I 

"^■-I-O =L"^LRN 

_^10 -E^" SUBROUTINE »^HNY EXCHflHGEi* 
, s£l_. rCF 19=1 TO M9-1 
£530 IF ^■Ul93=-£ THE;N £660 
if: 540 FOR 15=19-^1 TO M9 
c-,j_it1 ir ■■-=!. i ■„= J ——iZ I i icH u.-.!:^-ti 
£5S0 GOSUE 1990 
£570 IF Jb<=0 THEN £590 
£580 GOSUE 1790 
£590 NEJ^T 15 

£60y ne>^:t ly 

£610 RETURN 

£6£0 REM ^^MflSTER — NflTURRL SELECTION^ 

£630 LET K3=0 

£640 GOSUE £510 

£650 IF K3>0 THEN £6£0 

£660 GOTO 1£90 

£670 REN ^MhSTER — CRRFT^ 

£680 LET J9=0 
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£b-3€i FOR 19=1 TO My-l 

£6-95 IF Ki:i93=-£ THEN £77© 

£700 FOR 15=19-4-1 TO M9 

£7!35 IF ;-:CI5l=-£ THEN £766 

£710 GOSUE 1990 

£7£0 IF Jb<=J9 THEN £76© 

£730 LET J9=J6 

£740 LET 14=15 

£750 LET 13=19 

£760 NEKT 15 

£770 HEKT 19 

£780 IF J9<=0 THEN 1£90 

£7-30 LET Jfc.=J9 

£800 LET 15=14 

£810 LET 19=18 

GOSUB 1790 

GO TO £680 

BfiTfl £?3j£ 

iJflTH ? 1 5 5 J 1 5 J 30 ? 60 

DflTfl 50 s £1 3 50 ? 5 s 1 ? 75 

DRTfl s 75 ? 5 10) 1 5 5 80 

DhTh 1 00 ? 1 £0 J 9£1 J ? 105 £0 

DhTH 405 1€1? 15? 6£i) 0? 10 

DflTR 65 5 3ei ? 1 £1 5 5 5 45 5 

DflTR £„50? 1«505 1.75s 4. 50? 3. 50s 4. 00 

IhTH 1 5 £ 5 3 5 4 J 5 J fo 3 y 
5 C'0 1 DflTfl -r! 5 c:! s 1 5 4 J 5 5 €■ 5 £ 5 c! y 4 
9999 END 



£y£a 

££!30 
4990 
50€»Zi 
5 1 S© 
5101 
510£ 
5103 
5104 
5 1 05 
5££i0 
5300 



^ 



.N.^ 



M 




,' .-{ 



78 



OPT 1 11 1 ZE 



?!iri 



optimist: mill HfiriliLE three LFlYOUT HEURISTICSs 

CRFlFT ( = 1)? FiiiV liiPRMUEI'irMT i:=£) ? FlMl! RFiNKEIJ PROIjUCT i> 



I'JHICH HEURISTIC 1 
STFiRTIiiG ■-■;riLUTIiJf-i 



f\R - 



\ 1 



TIFiL, LRtUUTe 



TFIE: FiUEPFlGE Cu:5T HE THE CUPREHT LFlYOUT J: 



■■|!=iL_ I FlYiJin' 



FiUERRGE COST OF THE CURREHT IS 488 l.S? 



"hRTIHG SOLUTIOH 



irr[TiHi l.h'i'oht' 



Ti-iE RsiERHGE COST OF THE CURREHT LHYOUT IS 6058.75 



II-IFii.. LiiYOUT 



Ti-IE' 



OF Ti-IE fjJFiREriT LRYOUT TE 
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ORDER: 

DESCRIPTLQM 

This unique program calculates the optimum order quantity for a group of 
goods, each with different supplier discounts. The order quantity for vari- 
ous goods is a function of how fast the individual items move, their dis- 
count order prices, available total inventory, etc. All of the variables 
that enter into determining the optimum order quantity are taken into con- 
sideration; including the cost of holding goods in inventory. 

Individuals who order goods periodically can use this program to keep their 
cost as economically low as possible. This would include businessmen, house- 
wives, manufacturing concerns. Radio & Television sales and repair shops, 
wholesalers, etc. 

I NSTRUCTIONS 

Enter your data into DATA statements, starting in line 100 before the program 
is run. The format for the data entry is as follows: 

100 DATA N,D,C,0 

105 DATA U(N),V(N),A(N) 

106 DATA U(N-1),V(N-1),A(N-1) 
200 DATA M(D),P(D) 

where 

N = number of items 

D = number of supplier discounts (0-8) 

C = carrying cost {% of price) 

= ordering cost 

U(N) = unit index (order quantity multiplier) 

V(N) = item selling price 

A(N) = annual demand 

M(D) = minimum number will ship 

P(D) = discount in percent from price 

After the data has been entered into the program type RUN. 



Starting in line 1090 there is a Print Using statement. This statement is 
used extensively throughout this program. This program should store and 
execute in 8K Bytes of memory. 
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*^^30 REHD Mi j fig? CI j CsE^ 

040 REM rn. = NuriEER of iTEns 

i;i50 REM M£: = riljrir;E:R OF niSCOUHT^ 
QfsA ppM ri = CRRRYIMG COST 

gggpRTriTURINGllOO? Ci ? 



,1 ■■_,. 

1 1 00 



~l IX 



CfiRRYING COST IS#### 

J" pFR CENT OF ITEM vffiLUE. " 

T"THE ORDERING COST IS"? 



1 i 1-0= ###. ft# bollhrs 

1 1 S0 1 EM 1 = 1. THEM 1 £50 



I;iTUSInGl£40 
ITEM : UNIT 



-ffifiUHL 
■.-■HLUE s DEMRND 



1 ?50FORl=iTnrii 

1 RRyREflDU? CR? E9 

1.R7y REM u = uriiT iriDEX 

j gyy REM C9 = ITEM PRICE 

lERO REM E9 = HnNURL DEMflND 

] Z?9U ih ^il = n rlLrii'j4y 

j -Z'- 1 \jr :"-„ 1*1! ■-■o 1 1 1Li i C'C.-^L' ? J ? '_' ? L-i? ? tLr^ 

i 3Pi3 = s #### ; ### . ## ; ##### . ## S ###### 

1 BSOGOTOl 080 

1 340 PR I MTUS I HG 1 366 ? C9 

1 350 PR I MTUS I NG 1 37© ? E9 

1360: ITEM PRICE :###.## ERflHCS. 

1370?RriNUHL DEMfiHri;#### ITEMS, 



1 



ki C'Tu-—\ 



F'=F+f W-F'^ 



1 4E:0LETC=C-'E 

1 440LETB=E^C£ 

1 450LETE9=SQR ( B^H ) 
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1 A- ('kiV Uk I =c: TOr-j? 

1 4S9REflTiM ( I ) J T 

i. .4, 90 PR T MTi.lS I NG 1 500 ? n C I ) 5 T 

1500sFROM#ft## UNITS THE SUPPLIER OFFERS fi DISCOUNT OF ## PER CENT 

i -5 1 0LETT C I) = 1 -T--- 100 
1 520 1 FH C I) >ETHEN 1 55© 

1 540LlTI=I+1 

l'^i50LETH£=I-i 



i 590LETn C 1 J =Hy-G-+-B*^G 

16101 FNS= 1 THEii 1 640 

1 6£0PRiriTUSIriGi630? M (I) 5 rl f I+l ) 

IbSOUri THE INTERliRL FROM##t# T0#### 

1 640LETF ( 1 1 =£9 --SQR ( T (I ) j 

1 650LLTN (I + i ) =flKT { I ) «M ( I + i ) +-E----'ti( I + i ) 

J 660IFCE( I ) -rlt I) ) *^ 1 E ( I) ~Mf I + l i XOTHEN17S0 

i C' • !i! i~ t-. '. I } ■: ! I !. i .1 I r\rj. i ]. 1 1 i-J 

1€=80 PRINT'' THERE IS NO EOQ, '■ 

1 /'yytisj ! uly iy 

1710LETF(lj=rii I ) 

1 720LETF ( I ) =hsT i n *^E f I ) +B.--'E f 1 1 

1 7 30LETK=GS^E 1 1 ) 

j 74tiPRINTUSINGi753? EC!) 

1750? THE ECOnOMIC UPDER QUflHTITY IS ###„## INDEK UNITS 

1760LETEC I ) =INT(K+_5j 

i P70PR I NTUS I NG 1 780 ? F ( I) 

1780? CORRESPONniNG TO R TOTAL COST OF#tt##.## DOLLRRS 

1790 PRINT USING ISOOjK 

1S30S hHD hN ORDER EUERV ##.# WEEK. 

iSiOPRINT 

1 8 80LETM i I J = I NT ( Mi D *H7+ . 5 1 

1 S30HEXTI 

1 840LETH (N8-M ) =INT fM (NS-t-i ) *:G+. 5) 

1 850LETfl=H.-''"G 

1 860le:tb=e*;g 

1 870LETM?=P*^fl+ B.---"£ 

1 S30LETM1=58S|hsT (fi£) +B--'''5P 

i390FORI=iTON£ 

1 900 1 FF f I 'i =UTHEN 1 930 

1 9i0IFNi<F ( I j THENi930 

19£0LETM1-FCI) 

1 9' 30 1 Vn^ >N ( I + 1 1 THEN 1 950 

1 9"?Of rTMQ=M1 
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1 -'C=t!l_L = i'ii— I'l? 

i990LE:TR=M£-nl 

£:000LETRi=R.^'RS 

£01OLETR£=i0tIHT (LOG (Rl 3 /2.30S5851 ) 

£0£0LETR3=R1.^K£ 

£03OLETR4=£tINT(LuGCR33^-.69314718) 

£ 04y LETR=R£*R4^-4 

i:-050LETM£=R3SI NT ( N£.-^'R+ 1 j 

£0&0LETMi=R*^IMT!Mi.^^R-l) 

£070LETMaj=l 

£080FuRK=iTON£ 

£090LETr:=fl*T(K3 

£i 10FORI=ri(K)TOK 
£ 1 E0LETP r I ) =C^ I +E.-- 1 

p 1 oiT-jr-JiryT-f 

£160FnRK=lTnv 

£ 1 70FuR I =p i M ( K+ i 3 3 TON ( K+ 1 3 STEPR 

£i3@LETI9=I9+i 
£i90LET R(I93=rM(K>13 
£ £00LETR (1 9 3 =M i K+ 1 3 

££10LETn (19) =1 



•■irVT T 



££30NEKTK 

£ P 40 PR I NT " HOR I ZONTfiL s ORDER FREQUENCY ( I N WEEKS 3 . " 

££50 PRINT-UERTICRL : TOTRL HHNUhL COST QN DOLLARS 3 " 

££b0PRINT 

[ I— E =-_-t-C I i. i — X 

££90LETPCI£3=pfI13 

E 300FORK=ri£TOM 1 +RSTEP-R 

£3i0LETKl=K+R/£ 

£3£0LETK£=K1-R 

£ 330PR I NTUS I HG£340 ? K ? 

£340: ######### : 

£350FORI=I1TUI? 

£360IFpri3 >K1THEN£390 

£370LETIi=I 

£ 380GOTO£400 

£390NEyTI 

£400FnRI=I£TOIl 

£ 4 i 1 FP i 1 3 < K£THEN£430 

£4£0LETI£=I 

£430GOTO£459 

£440NE:>CTI 

E450FOR I=IiTni£ 

£460LETX=H£4-i 

£470FORN=1TOX 

c, ^ 30 1 F I <>E C N j THEN£5£0 
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£53yIF in CN) -K i ) *^ CN 

£. 6 S0 IF C Q C ti ) — K 1 ) ^ f Q 



' I ntLl'IC'DcIO 






1 -!■ 









£7:30 j-'KlNr-DO YOU IJflHT TO ENLhRGE THE CURUE -- flNSWER YES 



JR NO'- 



i i I 












S83o PKirii"HOW MfiMY MEEKS SHALL YOUR ORDER COriPRISE"? 

cHbOKLy i uRl 

cior'y KLHiJ ni 5 fifc:? Ul ? L"c: 

£8S@PRINTUSING£8905 N 

£890=##.# WEEKS CORRESPOMDS TO THE FOLLOWING ORDER: 

p g y y pQp J -I Jyi-4 J 

£9£0 PRINT USING £930? N-U^-5£f I 

£930= #######.## OF ITEM NUMBER#### 
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PERT TREE I 

D ESC R IPTION 

This program analyzes a pert network. Each event in the network will have 
four variables computed for it. They are as follows: 

TE = the earliest time of completion 

V = the variance associated with TE 

TL = the latest allowable time for completion 

Slack = TL - TE 



iTTB II iilW. Af«iiiLi3LJlB&. 

Persons who set up schedules will find this program yery helpful, especially 
if there are several different alternatives possible. This would include con- 
struction firms, drafting and consulting companies, manufacturers, etc. to 
name just a few. This program could also be used to keep tabs on a home con- 
struction project, such as building an extension onto a house or adding a 
garage. Here, materials would have to be ordered and the electricians and 
carpenters would have to be scheduled. Some of the events could proceed a- 
head of others and some couldn't. If the project was analyzed on a Pert Tree 
the maximum amount of slippage for each event would be known as well as cri- 
tically timed events. 



IMSIRUCTIONS 



Enter your data starting in line 3000 before running the program. List lines 
170 to 1590 before you enter your data. For additional program information 
list Pert Tree. '^ " ' ' ' .... .- -.. 

chain of events 
tended project. 



jL/u tu ia^u ueiurt; yuu enuer your aatd. ror aaaitionai program inTormation 
list Pert Tree. Before you enter your data you should draw a picture of the 
chain of events to make sure you have included all information about the in- 



LIMITATIONS 

Line 70 contains a Restore statement. Line 1610 contains a DIM E(18,13) state- 
ment. The source code for this program will require 9K Bytes for storage. The 
program should execute in about 13K Bytes of memory space in most systems. 
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i HH ! :-"-'. ! I "M!- h- 



HfiHLYSIS PROGRAM' 



80 It \ <> 4E36 aHEM ibOO 

90 PRINT 

law PRINT "ENTER DPTfl hTRK'TIHG IN LINE '"SHMy " 

110 PRINT 

1£0 PRINT "FOR RROGRflM DESCRIPTIOn HMD INSTRUCTIONS TYPES" 

140 PRINT "LIST 170-1590" 

1 50 S I Oh 

160 GO TO 1600 

170 REM 

ISO REM PPOGRhM DOONMFHTflTTnN 

190 REM 

£00 REM THIS PROGRRM RNRLYZES H PERT NETMORK, THE RHRLYSI? 
£10 KEM IS flDOPTED FROM THE PROGRRM RS SET FORTH IN MC MILLfiN 
HNB GONZALES ( PAGES ISS TO £11) „ 



rtd 



£40 KLM _ FijLLOHINy THE CONUENTION flS DELINEfiTED IN M S.G^ 

£5y kEM H UIkCLE CORRESPONDS TO A 'COMPLETION EUENT' AND 

£60 Rt.M AN ARROW CORRESPONDS TO RN 'HCTIUITY'. IN THE 

£79 REM NETWORK RNRLYSIS TWO RRRRMETERS ARE flSSOCIATED 

£8y KLM WITH EACH TIME CONSUMING RCTIUITY: A MEAN ANn r 

£90 REM ■ UARIANCE. 

300 REM 

310 REM FOR EACH EUENT IN YOUR NETWORK- THE PROGRAM 

3£0 KEM WILL DETERMINE THE FOLLOWING UAPIABLEs FOR Yfiffs 

330 REM 

:34o KEM 1) TE = THE EARLIEST EXPECTED TIME OF OCDIppENCE 

350 REM OF COMPLETION EHE^^^T '--■ 

360 REM 

370 REM £j U = THE UARIANCE ASSOCIATED WITH THE TE OF THE 

38a KL.M EtJENT. 

390 REM 

400 REM Bj TL = THE LATEST EXPECTED TIME WHICH A COM- 

410 Rfc-M PLETION EUENT CAN BE ALLOWED TO OCCUR 

4£o KEM WITHOUT DISTURBING THE TE OF THE FTNRL 

430 RLM EUENT OF THE NETWORK. 

440 REM 

4 SO REM 4) SLACK = TE-TL 
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'■ i' ^~t rj^ 


Kh.Pl 


470 


REM 


4 So 


REM 


490 


t^=L. hi 


500 


REM 


510 


REM 


5S0 


REM 


530 


REM 


540 


REM 


550 


REM 


560 


REM 


•• ' i ~^- 


REM 


580 


KLM 


590 


REM 


600 


REM 


610 


REM 


6£0 


i9EM 


6^30 


REM 


640 


REM 


650 


REM 


t> 60 


REM 


670 


REM 


S-;-, Hi^'l 


REM 


[C^opi 


REM 


""•' M l™-5 

1 ■•:.!-_= 


REM 


7 1 3 




7' £0 


REM 




REM 


740 


REM 


7'dQ 


re:m 


'"•' cZ, }T~ 


REM 


!"' i"' k:- 


REM 


780 


REM 


790 


RE'M 


800 


REM 


C".' J. ~i\ 


REM 


820 


REM 


r-\ 'A M 


REM 


l-:d.Li 


REM 


850 


REM 


ci60 


REM 


870 


REn 


880 


REM 


890 


REM 


90€i 


REM 


910 


REM 


980 


REM 


930 


REM 


940 


REM 


950 


REM 


9 60 


REM 



THE REOUE MENTIONED UflRIRBLE TE MUST NOT BE CONFUSEIi 
WITH T(E)„ THE UflLUE TlE) IS THE EXPECTED hNOUNT OF 
TIME REQUIRED FOR THE COMPLETION OF R SINGLE HCTIUITYj 
INDEPENriENT OF WHhT HhS OCCURREIi BEFORE IT. THE DfiTR 
FOR TCEl OF EfiCH EUENT WILL EE ENTERED BY YOU fiS 



HESCRIBED BELOW = 

li hnh uce) . 



THE SfiME NOMENCLRTURE IS USED WITH 



in THIS RROGRHM HO EUENT CRN HflUE MORE THfiN TWO 
IMMEIHRTE PREDECESSOR EUENTS OR MORE THfiN TWO 
IMMEDIATE SUCCESSOR EUENTS. TO USE THIS RROGRRM WITH 
MORE COMPLEX rCTWORKS CONTfilNING MORE THAN TWO 
IMMEnlflTE PREDECESSOR OR SUCCESSOR EUENTS? ENTER 
H NUMBERED 'DUMMY' EUENT THRT HAS A TfEJ =0 AND 

w M I" P i =M 



FOR E:KhMPLE? if EUENTS 1? £ AND 3 PRECEED EUENT 



(0) TIME FOR 
H THAT EUENTS 



THEN ENTER A 'DUMMY' EUENT 4? OF ZERO 

COMPLETION AND ZERO (O) UARIANCE? SUC 

1 AND £5 OR 1 AND 3? OR £ AND 3 PRECEED EUENT 4. 

THEN EUENT 5 WILL HV-JE ONLY T!JO PRECEED I NG EUENTS AS 

ALLOWED BY THE PROGRAM. HE, ELJENT 5 WILL EE RRECEEDED 

a'-f 1 AND 4? OR £ AND 4? OR 3 AND 4} — SEE PAGE 197 

OF M & G. 

BEGINNING IN LINE SOoO ENTER THE DATA. FIRST ENTER 
T? THE TOTAL NLSMEER OF EUENTS IN THE NETWORK INCLUDING 
DUMMY EUENTS IN LINE 3000. 

THEN BEGINNING WITH THE FINAL EUENT AS NUMBER ONE? 
C 1 J ? ENTER IN LINE 3001 THE FOLLOWING 8 PIECES OF 
INFORMATION ABOUT THE EUENT IN THE ORDER INDICATED? 
ALL 0\i LINE 3001. REPEAT THIS SEQUENCE? ENTERING THE 
S PIECES OF DATA FOR EACH OF THE REMAINING EUENTS ON A 
SiriGLE LINE. INCREMENT LINE NUMBERS BY 1 AFTER LINE 

3o0i . 

iJ THE NUMBER OF THE EUENT' S FIRST IMMEDIATE 
F'REIiECESSOR EUENT . 

£j THE TIE) ASSOCIATED WITH THE ACTIUITY BOUNDED 
BY THIS COMR_ETION EUENT AND ITS FIRST 
IMMEDIATE PREDECESSOR EUENT. 

33 THE UARIANCE U(E) ASSOCIATED WITH THE ACTIUITY 
BOUNDED BY THIS COMPLETION EUENT AND ITS FIRST 
IMMEDIATE PREDECESSOR EUENT. 

41 THE NUMBER OF THE EUENT 'S SECOTffi IMMDEIATE 

PREDECESSOR EUENT. IF NONE? EriTER ZERO. 
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970 REM 

9S0 REM 5) THE TCE) aSQjCIflTED WITH THE fiCTIUITY BOUMDEB BY 

990 REM THIS COMPLETION EUEHT RND ITS SECOND IMMEDIfiTE 

IQay REM PREDECESSOR EUENT„ IF NONE? ENTER ZERO. 

1010 REM 

10£0 REM b) THE UfiRIflNCE UiE) fiSSOCIRTED WITH THE flCTIUITY 

10:j0 REM BOUNDED BY THIS COMPLETION EUENT fiND ITS SECOND 

1040 REM IMMEDIfiTE PREDECESSOR EUENT, IF UNKNOWN? ENTER ZERO. 

1050 REM 

1060 REM 73 THE TE OF THE EUENT? WHERE KNOWN, 

1070 REM IF UMKNOf'JN? ENTER ZERO. 

1030 REM 

1090 REM S) THE UhRIhNCE U RSSOCIhTED WITH THE EUENT? WHERE 

1100 REM KNOWN, IF UNKNOWi? ENTER ZERO, 

1110 PEN 

1120 REM THE LfiST El^ENT iRCTURLLY ENTERED FIRST? flS REOUE) 

11 -J© REM MUST BE LREELED ONE. THE OTHER EUENTS NEED NOT HflUE 

1140 KEM RNY ORDER. REMEMItRs W-IEN ENTERING THE DRTR THRT YOU 

lltiO kEM LNTER T (LINE 3000)? THE 8 PIECES OF DRTR FOR EUENT 

1160 REM 1 (LINE SOWi)! THO-! 8 FTiR EUENT £ (LINE 300£:! ? THEN 

1170 REM 8 FOR EUENT 3 (LINE 3003) ? ETC.? IN STRICT 

1180 REM SEQUENT I RL EUOIT NUMBER ORDER? REGARDLESS OF THE 

1190 REM PHYSICAL LRYOUT ORDEF: OF THE NETWORK EUENTS. 

1£00 REM 

l£i0 REM TiEJ IS DEFINED flS? T(Ei = C R -f- 4«M + B J.-^S". WHEPF 

1££0 REM 

1£30 REM fi = MOST OPTIMISTIC TIME FOR COMPLETION OF THE flCTIUITY 

1£40 REM E = MOST PESSB1ISTIC TIME FOR COMPLETION OF THE 

1£50 REM flCTIUITY 

1£60 REM C = MOST LIKELY TIME FOR COMPLETION OF THE RCTIUITY 

1£70 RO! 

1880 REM URRIRNCE = U(E3 = ( (B-fl) -'-fo) t£? L-4HERF R hND E RRE 

1£90 REM DEFINED flS RBCBJE. 

1300 REM 

1310 REM 

13£0 REM AT LERST ONE EUENT IN THE NETWORK MUST HRIC ITS 

1333 REM EARLIEST COMPLETIOT^ TIME SPECIFIED ( I.E. RT LERST 

1340 REM ONE EUENT' S TE MUST BE KNOWN. 

1350 REM 

1360 REM IF HOWEUER? NO EUENT HAS H SPECIFIED TE? LET THE 

1370 REM THE TE OF THE INITIRL EUENT IN THE NETWORK BE 

1380 REM SPECIFIED flS CWE? ( i ) . THUS? THE INITIAL EUENT IN 

1390 REM THE NETWORK WCULD HFlME IN ITS SEUENTH DRTR LOCATION 

14a0 REM A ONE? INSTERD OF R ZERO. (IE? RSSajME EUENT NUMBER 

1410 REM 9 IS THIS FIRST EUENT IN THE NETWOFK AND STARTS RT 

14£0 REM TIME ZERO? ITS DRTR FORM WOULD LOOK LIKE 

14:-fei' REM >^K;K:>=: DRTR 0-? HOWEUER? FOR THE PROGRAM TO 

1440 REM OPERRTE THE EUENT WCflJLD HRUE TO BE ASSIGNED RN 

1450 KEM RRBITRRRY TE? SRY Is ITS CORRECT DRTR STATEMENT 

1460 REM WOULD TAKE THE FORM? K>^^ DATA 1-. 

1470 REM 
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14S0 F?EM 

1490 REM DON'T FORGET TO ENTER 'T'? THE NUMBER OF EUFNTS 

1-90 REM IN THE NETWORK. EACH EUENT IN THE NETWORK MUST HROE 

1510 REM 8 PIECES OF BRTfl ENTERED FOR IT. 

1530 REM IF THERE ARE MORE THAN TEN EUENTS IN THE NETWORK 

1540 KEM ENTER H BIM STRTEMENT IN LINE 1600 SUCH THRT EfT.lHl. 
PiTl RNIi SCTl RRF DIMENSIONED, WHERE T=NUMEER OF EUENT:? 

:m FOR e:>:hmples if your network hrs is euents^ the 

:M dim STRTEMENT WOULD BE DIM E ( 18? 131 . Pf IR i ,s i Iftl . 
15S0 KEM AFTER THE DRTR HAS BEEN ENTERED, TYPE: RUN 

1 590 REM 

1610 DIM EClK? 131 3pi: 18J jS(lS) 

1 b90 fiEIKT ri 

1 7= 1 fi F"np T = 1 Tf! 7" 

1 770 LET N = E (f b 1 1 

1300 IF E!'Nj71 = THEN 1770 
1 330 IF I = THEN £190 

1340 IF SCNj = P THEN £038 

1350 IF ECN,4i <> y THEN 1899 

1360 LET rfH?7j = E(rij£j + Efp(l+l)j7i 

1370 LET ECNsS) = E(N?3) + Ei:P(I + 13j8i 

1380 QO TO 1310 

1390 LET fl =n E(PCI + 1]573 + ErN?£] 



1 yyy 



Li:p(I + l 1 ,H) + E(N'3) 



1 930 LET P ! I) = N 

1940 IF EiN!7'! <> THEN 1978 

1950 LET 3 (Pi 1-1)1 = £ 
I960 QO TO 1770 

= y "''HEN l:'m90 
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1 yyy LL r ri=r= i i j 

E'0yy LET B = E iF" !' I + l ) J 7) + ECH?5) 

P0i0 LET G = EiP(l4-i;i?8) + E(H?6) 

£@2a GO TO £110 

I> ='T^ O-T^ i p r T): — tr f C' j" T -L. j 'I » "7 'i 4- fl" |" r-i _ E^ "s 

i_--_!-.,=t,= i_E_ i -•..-■ — !__ li i, J. = i .! 5 I ,< T^ c. '. I =! •_= .= 

Pm40 1 FT O = F(P(1 + 11^8) + rfN^ssI 









t -: '-: .1 :-: t 

i I ) 



. O^ LfcL t 



h f N , K 'f = i- 



^IHD SUCCESSOR EMEHTS HMD RECORD TE'' 






ri = L i i ? 1 j 



c'£50 






ir r 

LL i 



LlHj Itil = F:„ll jLJ 

n = E C I ! 4 j 

I = y THEN £3fc.0 

E (ri? 10) = E" ( I ? 5J 

EiMjilj = I 

E CM? IS) = E C 1 5 5) 



C'.., "Z- f w 


REM Finn 




LET ECIjLZ 


£390 


ffjfr k= 1 T 


£400 


IF EiKsiS) 


■;;> a. i i's 


rirvT k" 


£4=-:!0 


OOTO P7S0 



"I = 



:_(l57) 



C, '-r^Kf 



■I 5 1 3 J < > Qi 

= Efrb iij 



'B4.H 
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£500 IF E = THEN iE:590 

£510 IF EfEflSJ = THEN £688 

£5£0 LET Tl = E(H?133 - EfN?!©) 

£530 LET T£ = ECE?133 ~ EfNslE) 

£540 IF Tl < T£ THEN £578 

£550 LET ECNjISI = T£ 

;5560 GO Tu c::600 

£5;'0 LET E!N?13J = ECflslS) - E(H?10) 

£580 IF I = 1 THEN £398 

£590 LET EiNslS) = ECRjIS) - EiNjl01 

£600 IF I ==^ 1 THEN £399 

£610 LET 1=1-1 

£6£0 LET N = PCD 

£630 GO TO £460 

£640 LET N = fi 

£650 LET 1=1+1 

£660 LET Pi I) = H 

£670 GU Tu £460 

£680 LET N = B 

£690 LET I •= I + 1 

£700 LET Pilj = N 

£710 GO TO £460 

£7£0 REM PRINT RESULTS 

£730 PRINT'TUENT NUNBER" ? THE (£5) I "TE" 5 TRE 1:41) 5 "U" 5 THE (55) ? "TL" ? 

£740 PRINT TflB(60) J-'TOTRL SLRCK" 

£750 PRINT" " ; THE (£5) 5 " — " J TRE (41 ) 5 "-" 5 TRE (55) ? " — " ? 

£760 PRINT TflEC601?" " 

£770 PRINT 

£780 FOR N = T TO 1 STEP -1 

£790 PRINT N? E (N? 7) ? E iN? 8) s E CN? 13) -. E (N? 13) -E (N' 7) 

£800 NEKT N 

3000 DRTR 4E36 

'3999 END 
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RATES 



The program Rate will compute the true interest rate that is charged on an 
installment account. This program is slanted toward the individual borrower 
rather then the lender. 



.U.SERS 

Individuals who do installment purchasing will find this 
ful in computing the interest owed or paid on accounts. 



program very help- 



INS TRU C im ii^ 

Type RUN and the program w'n ask for the four required variables. They are 
as follows: (1) The amount of the loan, (2) The amount of each payment, (3) 
The total number of payments, and (4) The number of payments per year. For 
additional information list the program. 



LI M ITATIONS 

The program requires 2K Bytes of memory for storage. 
Bytes in most systems. 



It will execute in 4K 
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■?flTE 



7 PRIMT "DO VOU WflNT INSTRUCTIONS? f:i=VESj e=N01 " 

S INPUT Y7 

9 IF Y7=0 THEN 88 

10 PRINT" 



-•PINT 

-'PINT 

■ T NT 



I- 
p 

P 

PRINT 

P 
P 



P 
I 
00 
10 

£0 
30 

40 
50 
6£i 

70 

80 

90 

:!0£l 

;:10 
::£0 

::30 

i'4ti 

L ■_■•£• 

::60 
;:70 

:80 

;'90 
J 00 

;10 



'THIS PROGRRN WILL CfiLCULfiTE THE TRUE flNNURL INTEREST* 
■RRTE CHflRGEIi ON m INSTALLMENT LORN. YOU SUPPLY THE" 
'Ur-iLUES OF FOUR UfiF:IfiELES: fl = fiMOUNT OF LORN (IN *-) 5 

'p = rmount of erch pryment ($) , n = the total number' 
■of payments due 5 and k = the number of fflyments due" 
■in one year. "5 
NjK"; 



■WHAT 

A? P? 



ARE Asp! 
N? K 



NOT REASOTRILE. THE PAYMENTS ADD UP" 
S THAN THE AmUNT OWED. TRY AGAIN: " 



■PINT 

'PINT 

RINT 

MPUT 

PRINT 

IF N=l THEN 510 

IF P«rO-=A THEN 180 

PRINT 

PRINT "THAT':; 

PRINT "TO UEi 

PRINT 

GOTO 80 

LET R=0 

LET D=100 

GOSUE £90 

IF P=P1 THEN 

IF P>P1 THEN 

LET R=R-D 

GOTO £b£i 

LET R=R+D 

LET D=D.-£ 

IF D< 0.0001 THEN 390 

GOTO £00 

LET Rl=R.^-a00»;Kl 

LET Q=1+R1 

IF N*«LOGi:Q3.--LOGi:10)<=75 THEN 346 



390 

£50 
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32B LET pl=H*Rl 

:339 RETURN 

340 IF Q>1 THEN 3?@ 

350 LET Pl=fl---N 

360 RETURN 

370 LET pl=H»^QtN*^Rl---CQtN-l) 

3S0 RETURN 

390 LET R=0.0i^INTi0.5+1005KR) 

400 LET R£=. 0i-*INT C . 5+ie*Zi00« i ( 1+R--" ( 100^K) 3 tK-1 ) ) 

410 IF R<199.5 THEN 460 

4£0 PRINT 

430 PRINT "RATE WOULD BE OUER £0© PERCENT. TRY hGhIMs 

440 PRINT 

4'=iy GOTO 30 

460 PRINT '^TRUE RNNUflL INTEREST RRTE (NOMINflL) =" JR 

470 PRINT "TRUE RNNURL INTEREST RATE fEFFECTIUE)==' ?R£ 

480 PRINT 

490 PRINT "RNOTHER CASE? (TYPE 'S' TO STOP NOW)." 

500 GOTO 80 

519 LET P=fP--^-R-lJ^K 

580 LET R=100^R 

530 GOTO 390 

9999 END 



Thus PF?rif:;F:Fii1 I4II,J. CHLCULRTF THE TRUE hHNUhL INTEREST 

H;:FiTE: CI IRRCaE'Ii Oii FiN I i iSTl-iLLJIEJiT LORrL YOU SUPPL'i' T'l-iE F-iRLUE' 

OF FOi !F' iJ;iPlHBLJ:"Sii f! = RMOUUT OF LORN ( IN DOLLRRS) 

P::n: FiMOUNT OF E HUH PR'i'MEnT ( S-) ? N = THE NUMBER C TOTAL #) 

OF F-fiYMF:rrTs ijuf!. uriri k = T'hf: riuNiiFR of pfi't'pients due 

Hi ONE YEhP. FIHmT FiPE H?P?i-f?K ?60y» FiR? 31 . 99? £1 ? 18 

TRFIF RMNHRL INTEFIF/iT RRTF liiOMP IRL) ^= i8„61 
IRUE RrirlUHl IFiTrPFS-j- ppiiir iFFFECTIUE) = 13.36 

RNOTHEP case'? (TYPE 'S' TO STOP r-IOW) . 

Ur-lhiT RPF' F-i?F'jFbF ?S 
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RETURN Is 

DE.S.CfiI.EII QN 

This program computes the rate of return a lessor can expect to make on his 
investment. Initially an investor will purchase an item and then the item 
will in turn be leased out so the investor will be able to gain a monitary 
return for his investment. This program will also simulate a lease contract 
experience for the investor and will generate a set of cash flows for use 
by the investor. 



Individuals or companies who invest in equipment for leasing purposes will 
find Return 1 a yery useful program; especially if the particular lease is 
new to them.- 



IN ST RUC T IONS 

Enter your data in lines 120, 121, and 122 before running the program. The 
format for the data entry is as follows: 

120 DATA P,L,C1,R1 

121 DATA M,N1,S1,S2 

122 DATA T1,D,N2- 

List lines 56 to 80 for additional data input information. After your data has 
been entered type RUN, 

LIMITATIONS 

The DIM statements in line 100 are set for 500. This represents a little over 
a 41 year lease, as 12x41 = 492. However an array this large will require 
50K Bytes of on line memory for execution. The source code only requires 7K 
Bytes of space. If the DIM is set equal to 50, this would represent a 4 year 
lease, execution could then be accomplished in 15K Bytes. 
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3i;iREM DESCRIPTIUf'l 

SSREM Tf-ilS PROGRfln ChLCULhTES THE LESSOR'S CflSH FLOWS flND PRTF 

34KLM OF RE I URN ON R LEASE WITH PERIOD-END PRYMENTS. 

TiOREn" '^'-'^■'^■'^■'^■'^■'^■'•^•'^'■^'^■'■^■'■^■'■^■'■^■'^■'^■^^^^ 

5 6RFM I HSTRUCT I ONS 

^'■-'!?E['^ URLUES FOR THE FOLLOWING UflRIfiBLES MUST BE SUPPLIED 

61REM THESE LINES ciOW CONTfllN DflTR FOR fl ShMPLE "RUN'" = 

fcSREM 1= P = iriUESTMEnT 

64REi1 £. L = RENT RfiYHENT? 6 IF THE LEfiSE RRTE RRTHEP TRRN THE 

65REM RENT RR'y'NENT IS GIUEM? 

3. Ci= NUNBER OF_TIMFS PER YERR THAT LEASE PAYMENTS APE MADE. 

4. Rl= LEASE RAIL? O IF THE LEASE PAYMENT RATHER THAN THE 
LEASE RATE IS GIUEN? OTHERWISE A DECIMAL REPRESEN- 
i'HIION OF hN ANNUAL RATE COMPOUNDED CI TIMES A YEAR? 

-5. M = LIFE OF LEASE Jri YEARS? 

IREn 6. ri1= DERRECIRBLE LIFE IN YEARS? 

^ Si- SflLUAGE FOR TRK PURPOSES? 

7 '3 REM ;3. S£= SRLUAGE ACTUALLY EKPECTED? 

76REN R. Tl= THE LESSOR'S INCOME TAX RRTE 

77F?EM ly, D ^- METHOD OF DEPRECIATION? 1 -IF STRAIGHT LINE? £ IF 
73RLn DOUBLE DECLINING BALANCE? 3 IF SUM OF THE YFARR DIG ITS? 

79KLM 11= ri£= THE NUMBER OF RUNS IN THF SIMULATION " '" 

80 REM 






I u 



,100 DIM HCSyO) ? KCfyO) jCC^OO) ?Di50y) jEfSOO) sL (SOO) ?P(5001 jTl500l 

110 DIM Ra001jM(100j 

111 READ P?L?C1 ?R1 

1 1£ READ M5NI ?S1?S£ 

113 READ Ti ?D?N£ 

1£0 DATA 60000? 9005 i£? 

1 d I DATA S ? 1 ? ? £0000 

1 £'£ DATA .753? 50 

ISO PRINT 

£00 PRINT " '' 5 "SUMMARY OF INPUT nATR" 
£10 PRINT 

S£0 PRINT " INUESTMENT" ? R? "RENT Pm'MENT" ? " " ? L 

£30 PRINT "PAYMENTS" ; TAB (12) 5 Ci J "TIMES PER YR"? "LEASE LIFE'^iM 

■-'-Ipi Tr" D ■= 3 THEN 300 

£60 PRINT "DEPRECIATION"? "STRAIGHT LINE" ? "DEPRECIABLE LIFE"?N1 
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£70 GO TO 310 

£80 PRINT "DEPRECIflTION-s" DDE % "DEPRECIflELE LIFE'S Nl 

£90 GO TO 310 

3 00 PR I NT " DEPREC I RT I ON " s " £OYD " , "DEPREC I RELE L I FE % N 1 

3 1 PR I NT ■' TAX SflLUflGE 'SSI? "fiCTIJRL SfiLUfiGE " ? " " s S£ 

3 60 PR I NT " 

370 PRINT 

3S0 PRINT 

390 PRINT " " 5 "RESULTS OF CFfLCULRTION" 

400 PRINT 

410 LET N=M'*C1 

4£0 LET N = N 

430 LET N4=N5=Nt.=N7=N8=rB=r-e=0 

500 FOR I = 1 TO b7£ 

510 LET U=RNDi:i) 

5£0 NEKT I 

530 FOR I = 1 TO N 

540 LET Hi I) = L 

550 LET Dtl) = 

560 ne>-:t I 

570 LET K = F 

580 GO SUB 1710 

590 LET R=f a+R)tCl-l)»^100 

600 PRINT '^LEfiSE RATE: "?RI"PER CENT PER VEflRj COMPOUNDED "JCl 

60P PRINT "TIMES H YEAR" 

610 PRINT 

6£0 PRINT 

630 GO SUB 1880 



690 


LET R£ = 


700 


FOR H = 1 TO N£ 


710 


LET N =. N.--C1 


7£y 


LET L =-- L*C1 


730 


GU SUB ££80 


740 


LET N = ri«ci 


75y 


LET L = L.--C1 


760 


LET M = M»^C1 


770 


FOR I = 1 TO N 


780 


LET LCIJ = L 


790 


LET Ed) = LCI) - Dd) 


800 


LET Ti;i)=E(I)«Tl 


810 


NE^<T I 


830 


LET T CM) =T i;M) + IS-P (M) ) «T1 


840 


LET L(M) = LCM) + S 


850 


FOR I = 1 TO M 


860 


LET Ril) =LfI) -TCI) 


870 


NE^T I 


880 


, LET y = P 


890 


GO SUB 1710 


900 


LET R= ( i 1 +R ) t C 1 - 11 5K 1 Pifi 


930 


LET RiH) = R 


940 


LL! MCH) = M 
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950 LET R£ = R£ + R 

960 NEXT H 

970 LET R£ = Re.--M£ 

980 LET R3 = 

990 FOR H = 1 TO ri£ 

3 000 LET R3 = R3 + CR£-R(H))t£ 

1010 NEKT H 

10£0 LET R3 = CR3.--N£lt.5 

1030 PRINT 

1.040 PRIHT 

1050 PRINT " %"SUMMHRY OF SIMULRTIOH" 

1060 PRINT " "j" " 

1070 PRINT 

1080 PRINT "NUMBER OF RUNS"?" " ? N£ 

1090 PRINT "flUERRGE RETURN PER RIW%R£;"PER TENT" 

1100 PRINT "STRNDRRD DEUIfiTION OF RETURNS" ?R3 

Ilia PRINT 

11£0 PRINT "SUMMRRY OF RUNS IN WHICH R DEFRULT nnnilpS" 

1130 PRINT " RUN'S" PERIOD'S "RETURN" 

1140 FOR H=l TO N£ 

1150 IF M(Hl=N THEN 1190 

1160 PRINT HsNfH) jRCH) 

1170 LET ri5=M5+l 

1 1 80 GOTO 1 ££0 

1 190 IF H<N£ THEN 1££0 

1£00 IF M5>0 THEN 1££0 

1£10 PRINT ri5?M5?M5 

1££0 tJEKT H 

1£30 PRINT " 

SUMMRRY OF THE "?N£-r'155 "RUNS IN WHICH NO HEFRULT OCCURS 

I860 LET 0=N£ 

1S70 FOR 1= 1 TO 

1£S0 IF Mi DON THEN 1338 

1£90 LET K=RiI) 

1300 LET Sl= K 

1310 LET S£=_X*;K 

1330 NE^T I 

1340 FOR I=£ TO 0-1 

1350 IF Ml DON THEN 1448 

1360 LET y=RCIJ 

1370 LET Si= Sl+K 

1380 LET S£= S£+XS^y 

1390 IF y< B THEN 14£0 

1400 LET E= K 

1410 GO TO 1440 

14£0 IF K> S THEN 1440 
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1440 
1450 
1 4b0 

1470 

1480 
1490 

1500 



1 59P 



LET W= iB-Si^-C 

f-QQ 1 = 1 TU U 

W Ml DON THEN 1530 

i_ET X^R ( I ) 

IF >vO- S THEN 1510 

l_rT y= v+ . 000 1 

LET F= I NT it ( X-S ) ^' ( E-S ) ) *^C+ . 999999 ) 
LET E(F)= E(F)+1 

NEXT I 

'■'' 5 THE (£5) J "NUMBER OF RUNS" 

FOP 1= 1 TO C 

IF liy 1 THEN 1590 

LET 141= S 

PR I NT I NT ( W 1 *^ 1 00+ . 5 ) / 1 00 J THE f 6 ) J " < RETURN 

PRINT INTuWl+W)*tl00+.5)^'100;THEf£5) ? 

LET Wi= Wl+H 

FOR ._!= 1 TO Ed) 



: -i.-.,.!"! I 






1 6 so 
1690 

1 7yy 



PPT NT 

PRINT "MEAN = "JSl.^CO-MS) 

PR I HT " RANGE = " ? S ? " - " j E 

PRINT "STIi D = " 5 SQR ( tS£- i (SI t£) ••■"01 ) •■•■ (0-1 ) J 

GOTO £530 

LET R = 

FOR J = 1 TO 5 



: V^ 



i -t- I 

o X 1 -J 

C' 4- " 



1 rtAii 
1778 

1 790 

IS 00 
IS 10 
1 SP0 

1 S30 
1 840 
1 850 
1 860 
1 870 
1880 
1 890 
1900 
1910 
19S0 



i ci 
i_,ET R 
LET Y = 

fof;; 1 = 1 TO M 

IF Y>1E34 THEN 1790 



LET Y = Y + fl(nx(l+R)tI 
> THEN 1740 



I it../; I i 
IF Y - K 

! C'T K^ = k'- — "7 

NE>a" J 

IF R > 0.THEN 1S70 

IF p < THEN 1870 

LET R = -1 

GO TO 17£0 

RETURN 

LET P(0) = P 

IF D = £ THEN 195© 

IF E = 3 THEN £060 

FuR 1=1 TO Nl 

LET fid) = !:P-Si).--"M1 
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1930 NEKT I 

1940 GO TO ciliy 

i9="!0 FOR 1 = 1 TO Nl 

1 9A0 LET ri C I ) = P ( I - i ) * tS^^Ml ) 

1970 LET B(I) = ipi:i~l)-Sl)^-(Hl-! + ll 

1930 IF naji > Ed) THEN £000 

1 990 LET H n J =3(1) 

pOhO let PCI) = Pil-i) -- flil) 

£■010 I F P ( I t >3 1 THEN £040 

£0£0 LET pii:i=Sl 

£030 LET fl(I)=PiI--l)-Pf 13 

£040 NEftT I 

PM'^;© GO TO £110 

£060 LET W = i:N1*^(Nl + iJ )^'£ 

?i;i70 FOR I = 1 TO Nl 

P0H0 !FT Hil) = iP-Sl)*^( iril-I-M i-^N) 

£090 NEKT I 

£100 LET i'j=0 



i -i C-i p-fip T =: 1 \\J [ ■] ] 



£i£0 EijR K=l TO CI 

£130 LET \A=hH-l 

y 1 40 LET ii i W J =ri C n ^■'C 1 

£150 LET PCiM)=PfN-iJ-ruW3 

£170 ME>^T I 
£130 RETURM 

££90 LET U=RMIO-lJ 

p-jfici If M = H THEN £330 

£310 LET M = ri + 1 

£3£0 IF > .005 THEM ££90 

£330 LET U=RHIi(-l) 

P;:-;4Li IF U > .3 THEM £370 

£345REri ERHKRUPTCY 

c'£oy Lr„ i ■-■:—£ 

£3ft0 GO TO £330 

£■ 365REri F^'EORGflM I ZflT I OH 

£370 LET Q=6 

^:.275REn EXJ'Pft RflLUHGE URLUE 

£ 330 LET 0= i P-S£ ) '^- . 5 1 ( . 5^M ) 

£390 IF P<N-ri THEN £43© 

P400 i„ET Q = N-M 

£410 IF Q>0 THEN £433 

£4£0 LET 0=0 

£430 LET U=RNDi-lj-.5 

£440 LET 3 = (SP-t-O+iP.-- 10)*;U) 

£450 LET S = 3 + L*^Q 

£460 IF (N-MJ = THEM £5£0 

£470 LET K = L*fN-M) 

£430 

£ 4 "90 LET 3 = K 

£5P0 RETURN 

£530 END 



IF K>S THEM £5£0 



100 



F:!Jrl 



IMUESTMEMT 
F-'FiYriEMT'S 

liEPRECinTIOM SWYB 
IhX £;i"iLUFlG;E 



SLIMMFlRY OF" INPUT DFlTFl 

60000 RENT PhYNENT 900 

!£ TIMES Fl YEAR LEASE LIRE 8 

IiEPRECIFiBLE LIRE 10 

FlCTUFiL SflLUFlGE £0000 



RESULTS OR ThIE CflLCULFlTION 

LEF-ISE RFlTE: 10.09938 PER CENT PER YEAR? COMPOUNIiEri 1£ TIMES A YERF 

SUMMARY OF SIMULATION 



iiUMBER OF RUNS 
flUERAGE RETURN PER RUN 
STANDARU DEiJIATION OF RETURNS 



5W 
..53876? PER CENT 
. £7365£4 



SUMMARY OF RUt^S IN WHICH A DEFAULT OCCURS 

RUN PERIOD RETURN 

as 36 5.434857 

33 60 4.0£0£S8 



SUMMARY OF THE 



48 RUNS IN WHICH HO DEFAULT OCCURS 



NUMBER OF RUNS 



5. £6 ■■ 


: RETURN <= 


5.31 




HMS»;;iK»;ffi 




: RETURN <= 


5.36 




»!»•:»; 


5 . 36 ■■ 


:■ RETURN < = 


5.4£ 




»: 


5.4£ ■■■ 


;: RETURN < = 


5.47 




sffi*;*; 


5.47 ■■ 


; RETURN <= 


5,5£ 




SiWfiKWW 


5.5£ ■■ 


:: RETLJRN < = 


c: vrc 




«»;»;»:»; 


5 . '5B ■ 


: RETURN <= 


5 . 63 




s 


5 . 63 ■■ 


; RETURN <= 


5 . 68 




»;»;»;*;»!■«•« 


5,68 ■■■ 


; RETURN <= 


5.74 




»;»;»;»•:»:»= 


5,74 ■■■ 


:: RETURN < = 


5.79 




ffiffiffiiSWWHKffiSKWJHK 


[■iEFiN 


= 5.45435 








RF-iNCE 


= 5.£586£7 




78S09S 




STD D 


1 . 34669 
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RETURN 2: 

DESCRIPTION 

This program computes the rate of return for an investor who purchases an 
item and then leases it out. The difference between this program and Re- 
turn 1 is that Return 1 recognizes that the lease payments and the salvage 
value of the item is uncertain and Return 2 assumes them to be fixed. 



USERS 

Anyone who is interested in leasing or investing in lease equipment will 
able to utilize this program. 



be 



INSTRUCTIONS 

Before the program is run you must enter your data in lines 120, 121 and 122. 
List lines 17 to 48 for instructions on data input to the program. After the 
data has been entered type RUN. 



L I MITATION S 

Lines 1191 to 1197 contain MAT = ZER statements. The source code will require 
7K Bytes of memory for storage. As in Return 1 the DIM statements in line 100 
may be reduced from 500 to 50 to conserve space. With the DIM statements set 
to 50, a four year lease is maximum. This program will then require 15K Bytes 
of memory for execution. 
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RETURM 



laREM THIS EfiSIC PROGRflM DOES fi LEfiSE RHfiLYSIS FROM THE 

ISREM POINT OF UIEW OF LESSOR 

14 REM THE PRuGRfin CFlLCULflTES THE LESSORS CASH FLOW HHH RRTE 

15REM OF RETURN ON fl LERSE WITH PERIOD-ENH PAYMENTS 

1 7REM 

ISRFM UfiLUES fiRE REi^JIRED FOR THE FOLLOWING UflRIflELES: 

1 9REM 

£0REri 1. P = INUESTNENT 

£iREM £. L = LERSE PAYMENT, O IF THE LEASE RRTE RATHER THAN THE 

££REM LEASE PAYMENT IS GIUEN? 

£3REM 3. C:l= NUMBER OF TIMES PER YEAR THAT LERSE PAYMENTS RRE MRDE. 

£4REM 4, Rl= LERSE RATE* O IF THE LERSE PAYMENT RATHER THAN THE 

£5REri LEASE RATE IS GIUENj OTHERWISE A DECIMAL REP-RESEN- 

P6REM TfiTION OF AN AmURL RATE COMPOUNDED CI TIMES fl YERR? 

£7REM 5. M = LIFE OF LERSE IN YEARS j 

£8REM 6. Nl= DEPRECIABLE LIFE IN YEARS? 

£9REM 7. Sl= SRLURGE FOR TAX PURPOSES? 

30REM 8. S£= SRLUAGE ACTUALLY E><PECTEDj 

33REM 9. Ti= LESSOR'S INCOME TAX RATE 

34REM 10. D= METHOD OF ICPRECIflTim: 1 IF STRAIGHT LINE? £ IF 

35REM DOUBLE DECLINIM;]; EALRNCE? 3 IF SUM-OF-YEARS-DIGITS? 

3bREM 11= T9= IDENTIFICATION OF UARIAELE FOR WHICH SENSITIUITY ANALYSIS 

37REM IS TO BE DOTC? 8 IF NO ANALYSIS? 1 IF INUESTMENT? 

38REM £ IF LEASE PAYMErfT? 3 IF LEASE LIFE? 4 IF LEASE RATE? 

39REM 5 IF DEPRECIABLE LIFE? 6 IF TAX SALUAGE? OR 7 IF ACTUAL 

40REM SRLUAGE. 

41 REM 1£. RS=LOWEST WLLE FOR UARIAELE SPECIFIED IN 11. 

4£REM 13. R9=HIGHEST UALUE FOR UARIAELE SPECIFIED IN 11. 

43REM 

44REN 

4fc.REM LINES 1£0-1£3 CONTAIN MTA FOR A SAMPLE PROBLEM 

48REM 

60REM 

100 DIM Hi:500) ?B(500) ?Di:500J ?E(500) ?L(50e:i ?P(500) ?T(500) 

101 READ P?L?C1?R1 
10£ READ M!N1?S1?S£ 

103 READ T1?D 

104 READ T9sR8?R9 
110 FOR H=i TO 7 
11£ READ fl^fHJ 
114 NEXT H 

116 DRTR INUESTNENT? LEASE PAYMENT ? LEASE LIFE? LEASE RATE? DEPRECIABLE LIFE 
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117 BATH TRx SfiLURGE 5 flCTUflL SflLURGE 

i i?0 dhtr 60000? 900? is? 

iSi DRTfl 3? 10? 5000? S0000 



I ntJi c:.-3'a 



1 4 I r 1 y< 1 THEfi £30 
150 PRINT " 



160 PRINT "DO Ynu LiRNT THE SEriSITIUITY RNRLYSIS ONLY"? 









"j^summhry of input DRTH'' 



PRINT " INi .CSTMEriT" ? '^■? "RENT PflYNENT" ? " " ? L 
PRINT ^TflYnEHTS" ? TRBi 19) ? CI? '■TIMES YEhRLY" ? 
PRINT TRBC30) r^TFE OF LEFiSE'S " "?M 



::it 



T f 



""sr": T !-. ST"' 



"DFPRECIRTION'S "STRhIGHT LINE"? "DEPRECIABLE LIFE'SNl 
"DEPRECIHTI0N"?"DBLE DECLIN BhLhNCE" ? "DEPRECIfiBLE LIFE"?N1 



41 Pi 



M" -_;= c.' 






<=■: i c-i 



"DEPRECIRTI0N"?"S0YD"5 "BEPRECIflELE LIFE'SNl 
'■'' Tpy SflLURUL " ? Si ! "flCTURL ShLUhGE " ? " " ? S£ 
"LESSOR'S Jf\K RRTE"?T1 

"LEASE RRTE GIUEHs "? Ri^lSe? "PER CENT PER YEAR? COMPOUNDED"? 
CI? "TINES YEARLY"? 

1 THEN 500 

=RINT "SENSITIUITY OF LEASE RATE AND LESSOR'S AFTER TAX RETURN TO" 
-RINT RSCTSJ?" WILL BE ANALYZED WITH A RANGE OF" ? RS? "TO"? R9? " . " 

=*RINT " "."RESULTS OF CALCULATION 



HKlril 



r'r- i!'l I 





GOSUE 


1190 




, - 


GOSUE 


i"ZA3 




IT" ~L 


PR 1 Fi [ 


"DO YOU 


NANT A L 


i~,~ 


INPUT 


N$ 




tZ '~ ^ 


PRINT 


n 





ING OF THE FLOWS"? 
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580 IF M$="NO" THEN 606 

590 G0E3JB ££40 

600 GOSUB 730 

610 IF T9>8 THEN £6£0 

b£0 IF T9<i THEN £6£0 

630 PRINT "SENSITIUITY RNflLYSIS Oi ";fl$i:T9)J 

650 PRINT " 



660 PRINT fl$i:T9) J 

670 PRINT TflBi:£5:i;"LEfiSE RfiTE"ITREi:43) 5 "LESSOR'S RFTER TFft< RETURN 



68£i FOR F9=0 TO 10 
690 GOSUB 960 
78ti GOSUB 119G1 
718 NEXT F9 
7£0 STOP 
730 PRINT 
740 PRINT 

750 PRINT " 

760 PRINT 
770 PRINT 
780 RETURN 



960 LET W=RS+i:F9--10)'K(R9-R8) 

965 PRINT TflE(5);W5 

978 ON T9 GOTO 980? 1018? 1048? 1070? 1100? 11 30? 1160 

988 LET P=W 

1000 RETURN 

1010 LET L=W 

1030 RETURN 

1040 LET M=W 

1060 RETURN 

1070 LET R1=W 

1090 RETURN 

1100 LET N1=W 

11 £8 RETURN 

llcrO LET S1=W 

1150 RETURN 

1160 LET S£=W 

1180 RETURN 

1190 LET N=INTi:M»;C1 + .5) 

1191 MAT fl=ZER 
119£ MRT B=ZER 

1193 MRT D=ZER 

1194 MAT E=ZER 

1195 MRT L=ZER 

1196 MPT P=ZER 
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1 J. -■■! r in i i — c_Cr:. 

l£yo IF R1=0 THEN 1£40 

i£i0 LET :^: = P 

i?£0 LET R=il+Rlltilx-i::ll-l 

1 d 30 GuSUE £490 

1 540 FOR I = i TO rf 

LET H i I ) =L ( I) =L, 






1£S0 LET :< = P 

1£90 GO SUB i6?ei 

1390 LET R=i(l+R)tCl-l)K100 

1310 IF F9=-l THEN 1340 

i3£0 PRINT THEl£5} JR5"^"; 

13o0 GO'i 01380 

1340 PRINT "LEASE RATE: "?R?"PER CENT PER YERR. COMPul INDED " 5 1 ? 

134£ PRINT "TIMES YERRLY"? 

1360 PRINT 

1370 PRINT 

1 330 GOSUB 1840 

1400 FOR I = 1 TO N 

1410 LET ECI) - LCI) - D(I) 

14£0 LET TCI) = ECI)*^T1 

1430 rO-:T I 

1450 LET TiN) = TCN) + CSP-PCN) )»tTl 

1430 LET LCN) = LCN) + S£ 






i-.C- ! 



riCM) = lifN) + PCN) 



1480 FOR I = 1 TO N 

1 490 LET fl C I ) = L C I ) - T ( I ) 

1500 MEKT I 

15£0 GOSUB 1670 

1530 LET LC0)=R(0)=-P 

1540 LET Di0) =Tf0)=F(0)=0 

J 580 LET R= ( C 1 +R ) tC 1 - 1 ) *^ 1 ©9 

1590 IF F9=-i THEN 1620 

1600 PRINT TfiB(45) sR; "1^" 

1610 RETURN 

16£0 PR I NT "LESSOR'S RFTER TRX RETURNS " SR? "PER CENT PER YEAR COMPOUNDED" 

1 630 PRINT TRE C 45 ) I C 1 5 " TIMES YERRLY" J 

J 650 PRINT 

1660 RETURN 

1670 LET R=0 

1680 FOR J = 1 TO 5 

1690 LET Z = . ItJ 

1 700 LET R = R + 7 

1710 LET Y = 

FOR I = 1 TO H 



1 730 
1 P40 



Y = Y H- R f 1 1 .--•• ( 1 +R 1 1 1 



rHEN 1700 
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1770 LET R = R - Z 

1730 NEXT J 

1790 IF RO0 THEN 1838 

1810 LET R = -1 

1330 GO TO 16y0 

1S30 RETURN 

1S35REM STRRIGHT LINE 

1840 LET Pi0)=P 

1850 IF D = £ THEN 1910 

1860 IF D = 3 THEN EOSO 

1870 FOR I = i TO Nl 

1880 LET FKIJ = CP-Sli^Nl 

1890 NEXT I 

1 900 GO TO 3060 

1905REri UOUBLE DECLINING EfiLflNCE 

1910 FOR 1=1 TO HI 

1930 LET Hili = P C I-l )« f£.^Nl ) 

1930 LET Bill = IPC I-l)-Sl).^(!il~I + l) 

1940 IF flCI) > Bill THEN I960 

1950 LET Oil) = BCD 

1 960 LET Pil) = Pil-l) - flii) 

1970 IF pilj>Sl THEN 30M 

1930 LET P ill =81 

1990 LET HiI)=PiI-l)-PiI) 

£000 NEXT I 

£0i'0 GO TO £060 

SOISREM SUM OF YEARS HI GITS 

£0£0 LET W=iNl«CNl + l) 3-^£ 

£030 FOR 1=1 TO Nl 

£040 LET fiCD = iP-S13*f fNi-I+13^'W) 

£050 NEXT I 

£060 LET W=0 

£070 FOR 1=1 TO Nl 

£030 FOR K=l TO CI 

£090 LET H=W+1 

£100 LET DtW)=flin^Cl 

£110 LET PiW)=piW-l)-DiWl 

£i£0 NEXT K 

£130 NEXT I 

£135 IF W>=N THEri £148 

£137 LET P(N3=PiW) 

£140 RETURN 

££40 PRINT TflEiPy); "LISTING OF CfiSH FLOWS" 

££50 PRINT TAB C £0:1?" " 

££60 PRINT 

££70 PRINT " YEFIR "j" LEASE ", "DEPRECIATION" ? " TAX "j" CASH 

££S0 PRINT TAB i 153 J "RECEIPT" j "PA'^tlENT" , "FLOW" 

££90 LET K=l 

e 300 PR I NT J L i 3 J D C 3 j T ( 3 j A ( 8 3 

£310 FOR 1=1 TO M 

£3£0 LET L8=D8=T8=AS=0 
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330 




FOR J=l 


TO CI 


340 




LET L8=LS+LiK) 


350 




LET DS=Ii8+ri(Kl 


3b0 




LET TS=T8+Tn<:i 


370 




LET flS=H8+fli:K) 


330 




LET K=K+1 


390 




iWKT J 


400 


PRINT IjL8? D85T3jRS 


410 




LET Lie 


i=Lt0)+LS 


420 




LET Dt0 


i=]:i(0) +i!8 


430 




LET T(y 


i=Tr0J+TS 


440 




LE T R i" ) =R ( ) +h8 


450 


ne: 


■^:t I 


■^60 


PRINT " 





TuThL" ? L (0) J n (01 J T (0) ? R 10) 

£480 RETURN 

£490 LET L=0 

,?500 FOR J = 1 TO b 
£510 LET Z = 10000*^. ItJ 
3520 LET L=L+Z 
c'530 LET Y = 
£540 FOR I = i TO N 
£550 LET r=V+L.--" i 1 +R) tl 
£560 r-ErtT I 

£570 IF y.~Y > THEN 2520 
£580 LET L=L-Z 

£590 fC:^^T J 

£600 RETURN 

i:::6£0 END 
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SCHEDULE 1; 

DESCRIPTION 

This program is used to schedule "n" number of resources to "m" number of 
locations. If "n" is a number of jobs and "m" is the number of machines in 
a machine shop, this program will schedule the various jobs so as to mini- 
mize the total flow time for all the jobs. The program makes the following 
assumptions in setting up the schedules: 

1. All resources are available. 

2. A location can contain only one resource at a time. 

3. The sequence of each operation and its timing are known. 

4. #3 is independent of the schedule. 

5. No alternate sequences are allowable. 

6. Processing time includes all transportation and set-up time. 

The program uses the following dispatching rules in setting up the schedules. 

1. Select the resource with minimum processing time in a location. 

2. Select the resource with minimum total remaining processing time. 

3. Select the resource with maximum processing time in a location. 

4. Select the resource with maximum total remaining processing time. 

U$ER3 

This program will find use any place minimum schedules are set up. The fol- 
lowing is a partial list of the types of concerns that could benefit by us- 
ing this program: Machine Shops, Printing Shops, Trucking Companies, etc. 

INSTRUCTIONS 

Your data must be entered before the program is run. Sample data is contain- 
ed in lines 6000 to 6190. This data should be removed before entering your 
data. List the program for additional information. After your data has been 
entered into the program type RUN. 

L IMITAT ION? 

Program lines 120, 140 and 150 contain matrix statements. Starting in line 
440 there is a Print Using statement. These statements are used extensively 
throughout this program. The source code will require 7K Bytes of memory for 
storage and 25K Bytes for execution. The execution space may be reduced by 
reducing the size of the DIM statements in lines 120, 130, 140 and 150. 
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1 £9 DIM S C i'Dj IcO 5 P I io^ 

Pyy ppTHjiijHIS PRuGRRM SIMULflTES R JOB SHOP FUfiCTIOMIHG UNDER 

-My ppjNj'TOUF-' DIFTEREHT DISPflTCHER RULES." 

ppfi pPiNT^ENTER DhTH In THE EOLLOWIriG ORDER EEGINHING" 

£30 PR I NT"' IN LINE fcOOo: " 

250 PRINT'' '■^- THEI NUMBER OF ilflCHINES? " 

pf^Qi ppJNT" a; jMp giTpfjpHpp jvipjpTV Sd, Jj kv ROWS" 

ppy ppTf-jjn NHERE PdjJJ IS THE PROCESS TIME REQUIRED" 



■30 PRINT"SflnPLE DhTR IS RLREhDt IN LINES 6800-6190=" 



■ s " 



:nt"to execute the PROGRhMs" 

TIT" TYPE 'DELETE bOyy—blSO' I'DELETES SflMPLE DfiTfl) " 



enter your DRTR" 



-jpp ppTNT'^ 

3'~!fi PRINT 

400 PRINT'-THE FOLLOWING IS fl SRNPLE EKEICUTION USING THE" 

41 y ppT|--.|j'iqphipL£; T.pjp_ >! 



450° SCHEDULING ##"JOBS ON *#-MhChINES 



'H-'i'U r UK "»-^ -~ 1 TUU 

490 READ S (I ? J) 



540 KLHIJ PC I? J) 
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5 5 id tWXT J 

560 HEKT I 

570 PRINT" INPUT" 

580 PRINT "SEQUENCE MfiTRIX-S" 

590 PRINT 

680 GOSUB b£0 

610 GO TO 690 

6£0 PRINT "HflCHINE 1 "? 

630 FOR I=£TUM 

640 PRINT TAB i 1*^5) 5 I ? 

650 NEKT I 

660 PRINT 

670 PRINT ''JOB" 

680 RETURN 

690 FOR I=1T0N 

700 PRINT USING 710? I? 

710s## 

780 FOR J=iTuri 

730 PRINT THE (5. *sj) ? S i I ? J) i 

740 NEXT J 

7^50 PRINT 

7' 60 NEXT I 

780 ^'F'TNT 

790 PR I NT "PROCESSING TINE MflTRiy-P" 

800 PRINT 

8 1 8 GOSUE 6£0 

880 FOR 1 = 1 TON 

830 PRINT USING 710? I; 

840 FOR J= ITON 

850 PRINT TfiEtS.stJ) ?P( I? JJ s 

860 NFVT J 

p,7'h-\ PRINT 

880 ne:-:t I 

890 PRINT 

900 REM CflLC TOTAL PROCESS TIME FOR JOES S: GEN MCI? J) 

910 FOR 1= ITON 

980 LET PCIjM+I. 1=0. 

930 F"OR J= ITOM 

940 LET P i I J M+ 1 . ) =P ( I ? M+1 , 1 +p ( I , Jl 

950 LET MilsSf I? J) 3=J 

960 NEXT J 

970 NEXT I 

980 PRINT 

990 LET CS=1. 

1000 FOR 1= ITON 

1010 LET S=0. 

1020 FOR J=1T0M 

1030 IF S(l3JJ<=S THEN 1058 

1 040 LET S=S i I ? J 3 

1050 NEXT J 



111 



1 Sbt? LE s S C 1 5 @ ) =S 

iggy pDTMT^^^^SCHEDULE OF JOB SThRT TlriES'^-'^-^-" 

1100 PRIriT'-DISPfiTCHING RULES CHOSE JOE FOR "? 
1110 IF C8>d THEM 1140 

1 i 40 PR T NT " Mfly I MUM " 

J,. X -_"■!.: i^Z.. i ! — C= B 

i 1 60 FOR J=0TOM 
1170 FOR I=0TON 

-L i 



i£59 REM GEHERflTE Q HMD 
1£60 FOR J=1T0M 



IF SfI?JJ<l 






-¥:— ! 



1370 REM END OF GEM= Q RND T 

1 H- 111"! UU I L^ 1 e'' c!U 

1450 REM DECISIOM RULE-PROCESS TIME 

5 430 PR I NT "PROCESS IMG TIME ON CURRENT MflCHINE" 

1440 LET K£=i. 

1^00 FOR T=k'P TO UiJS 

1510 IF T(l5JJ<=Ti THEN 1540 

15P0 LET Tl=Tfl5J) 
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1570 LET ri:u!:j)+k£-k:i=ti 

1 580 LET F f U C J 3 +K£-K ) =Q i K 1 s J 3 

1590 GO TO 16£0 

1600 LET RfK]=Tl 

1610 LET FCK)=Q(Kl5J3 

lb£0 NEKT K 

1630 FOR 1= K£ TO UfJ) 

1640 LET Qa5J}=FfI) 

1650 LET TiIjJ)=Ki:i) 

16fc£i riE:=-%T I 

1670 tiEKT J 

1680 LET K£=£. 

1690 REM END piI?Ji -RULES 

]7irifi GO TO hlOyO 

1710 REM ICniSIUN RULE- REMfilN IMG PROCESS TIME 

17£0 PRIMT-TOTRL TIME FOR RLL REMfilNIMG PROCESSING" 

1730 LET K£=1. 

174^ F"OR J=iTOM 

1750 IF U(J3 < K£ THEN 196y 

1760 FOR K=K£ TO UCJ) 

1770 LET K1=K 

1780 LET Dl=DiQ(K? J) ) 

1790 FOR I=K£ TO UCJ) 

1800 IF DCQ(I?J))<=D1 THEN 1838 

1810 LET Dl=D!QiI? J) J 

1S£0 LET K1=I 

1830 NEXT I 

1840 IF C8=4. THEN l8yM 

1850 LET RfU(Jl+K£-K)=T(Kl?J3 

I860 LET FfUtJ)+K£-KJi=QfKl? J) 

1870 GO TO 1900 

1880 LET Rsk3=TiKl?J) 

1890 LET FiK)=QfKljJ3 

1900 LET QfKl5J)=0. 

1910 NEXT K 

19£0 FOR I =K£ TO ULJ) 

1930 LET Qil5J)=FiI) 

1940 LET Ti:i5J)=R(I) 

1950 NEXT I 

196^1 NlXT J 

197£i LET K£=£. 

1930 REM END R (IT -RULES 

19-90 REM COMPRESS U AND T 

£000 FOR J=1T0M 

£ 10 IF Til? J ) >0 . THEN £980 

£0£0 IF U(J:i=0. then £080 

£030 F"OR 1 = 1 TO UCJ) 

£040 LET Qfl? J)=Qi:i + l?J) 

£ 050 LET_T f 1 5 J) =T I I + 1 J J 3 

£060 NEXT I 

£070 LET UtJ)=Ui j:i-1. 

?0sa-i ^kxT J 
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'd 


0yy 


c 


100 


c. 


lie 


c 


1£0 


Z'.* 


130 


£', 


140 


"' 


1 ^Q 


£! 


160 


£ 


170 


c. 


180 


c. 


190 






REM MI MI nun MON-ZERO MflLUE OF T(1?J1 

FOR .J=1T0M 

LET T£=Til5J) 

IF TCl5j)>0, THEN £150 

NEXT J 

GO TO £810 

FOR H=i TO M 

IF T i 1 ? H J < =0 . THEIN £!£00 

IF T(1?HJ>=T£ THEN ££Giti 

LET T£=TCl5H} 

LET K=H 

MErtT H 

REM END MIN Til? J) 

REM PRINT CURRENT UflLUES 

LET T=T+-T£ 

GO TO £5£0 

PRINT 

PRINT USING £430?T-T£? 

LET Q£=UflJ 

FOR J=1T0M 

IF Urjl<=Q£ THEN £31© 

LET Q£=U(J} 



iH ^ 



£>>yy 
£340 
P:-;=;0 



t:' 4 1 y 

£430 
£440 
£450 
£4 by 
£470 
£480 
£490 



!rt-1 



FOR I=1TU Q£ 

PRINT TAB (4) I 

POP J=1T0M 

IF UCJXI THEN £390 

PRINT USING £370? QCIs-JJ? 

GO TO £400 
PRINT " "i 
NEKT J 

PRINT 

NEXT I 

##### 

POR I=iT05 

FOR J=1TO10 

PRINT TflBCS^J) ?TCI? J) s 

NEXT J 

PRINT 

NEXT I 

RETURN 

REM END PRINT CURRENT UfiLUES 

REM MOUE FINISHED JOB TO NEXT MRCHINE 

FOR J=1T0M 

LET RCJ}=T(1 ? J) 

NEXT J 

FOR J=1 TO M 

I F R !". J J >T£ THEN £758 

IF_RUJ<T£ THEN £766 

LET Tfl?J)=0. 
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'6a0 llt i=Q(i5j) 



!_>_=<:j 



, i 

£b£0 LET Di:i)=D( I)-P(I? J) 

£630 FOR L= iTOM 

£640 IF St I ?LJ <=S ( I ? Jj THEN £730 

£650 IF Sa?L) >StI? Jl+l. THEM £7: 

£660 LET H=UfL2_ 

£690 LET QCH+1. ?L3=Q(1? J) 

i„„. ■ K~=^- L~.€- i -y '. L,. .= — = E "^ X a 

£710 LET TCH+1. ?L)=PiI?LJ 

£780 IF C8=£= THEM 1740 

it" L-C= — '-r • i hcTl i !" "-tB 

£8£0 GOSUE 6£0 

~'Q40 PRINT USING 710? I? 

£850 FOR J=1T0M 

£860 PRINT TREiS^^JJ sGCIjJ)? 

£870 NEKT J 

£880 PRINT 

c' 890 NEi^^IT I 

£900 PRINT 

£910 REM ChLC R(I?J) 



! i 






Pijp T = 1 TON 

£950 LET S=GCI?ri! I5S(I?0) 3 l+PilsMf I jSil j0n 3 

£960 lF_5<=Bi THEN £980 

■ ~'kj'k:'kj LET iz'cf— i:'c!'"'"f"'i 

3010 PRINT "TOTRL TIME =";Elf" hUERhGE TIME =" ? E^ 

3gpy poTNJ 

3030 PRINT 

3040 IF C8=i. THEN 3080 

3050 IF C8=e. THEN 310© 

3070 IF Uo=4. THEN 314y 

3080 LET C8=£. 

3390 GO TO 1080 

3100 LET C8=3. 
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3110 
31£0 
3139 
3140 
6y00 

6010 



6030 
6040 



6tl 


bti 


fc 


060 


t 





7-0 


fc 





80 


t 


090 


t 


1 


cJEf^ 


fc 


1 


10 


£ 


i 


'dB 


€ 


i 

i. 


30 


6 


1 


40 


6 


i 




6 


i 


C_iy'. 


6 


i 


70 


6 


J 


80 


& 


1 


"50 


ClQ9Q 



Gu TO 10Sti 
LET_^C8=4. 
Gu lU 1080 

REM THE FOLLOWING IS SAMPLE DRTfl RND SHOULD BE DELETED 
REM DUMMY tUH TO CAUSE INSTRUCTIONS TO BE PRINTED 

DflTfl 05 

REM 6 JOBS ON 6 MACHINES 

iJRTR fc< f b 

REM SEQUENCE DATA 

DATA 25 

DATA 5 5 

DATA £3 

ijri i h -.J 3 

DATA 4; 



■ ~* 5 1 ? 'T- ? tl'' ? ■_ 



5 ? 1 ? £ ? 6 
1 



^ ii|. 



4 



1 5 w 5 c! ? ^- 5 3 

REM PROCESSING TIME DATA 

HHT A -j:= ? tT' ? 1 3 i' 36? S 

J-'HTh 1 y ? fc« ? d ? 4 ? 1 y J 1 y 

L^H I H '^ ? 1 ? ^5 ? t^ ? f ? o 

TiE-sTil! ET- ET Cr --". t-: O 

£iHTA -J 5 •_":■? y ! 1 ? 5 ? 4 

.uath 1 y .' -I' J 1 ? C" 5 4 J '3 

REM END SAMPLE DATA 

END 
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PART 2 



GAMES 



AND 



PI CTURES 




ANIMALS FOUR: 

DESCRIPTION 

This program demonstrates the use of cybernetics, artifical intelligence, in 
a small computer system. In this program the computer asks you about animals 
and you increase it's knowledge with your responses. When the game starts the 
computer knows four animals. 



INSTR U CTIO N S 

To use, load the program into memory and type RUN. List the program for addi- 
tional instructions. The program is self prompting and will ask all questions 
necessary for execution. 



LIMITATIONS 

This program uses string variables but not contantations. This program requires 
7K Bytes of memory for storage. This program should execute without problems in 
any Basic speaking computer that has sufficient memory allocations. 
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"iriii'ifi! s 



jji=: vFM HFPE YOU TEflCH THE COMPUTER hEOUT HNIMfiLS 

1:-;Pi REM THIS pROGRflll DEMONSTRATES CYBERNETICS 

14=i REM THRT MERNS RRTIFICIflL INTELLIGENCE. 

jftPi REM TT REQUIRES fl FILE NAMED RNIMRL TO STORE 

175 REM THE LESSONS IT LEflRNS= 

j 90 PR TNT " WELCOME TO CLASS, I AM HAPPY YOU COULD " 

pf,^ PRINT ^^MflKE IT. FOR TODAYS LESSON I WOULD LIKE " 

ppci PR TNT '^YOU TO TEACH ME ABOUT ANIMALS. " 

p ;-:;-; PR TNT " ALL YOU NEED DO IS THINK OF AN ANIMAL" 

P!^Pi ppiHT "AND I WILL TRY TO GUESS WHAT IT IS." 

p,-c, pRTNT ''IF I CAN'T GUESS IT RAPIDLY I WILL hSK" 

pcn-i PRINT ^'YOU TO GIUE ME A TYPE OF DESCRIPTION OF" 

P9=; PRTNT "IT, THEN YOU THINK OF ANOTHER ANIMAL AND" 

;-;lfi PRINT "I WILL TRY AGAIN? HOPEFULLY I'LL GET BETTER." 

-;p=; pRTf^j .. [JHEN YOU ARE READY TO LERUE TYPE STOP" 

:;4£:i pRTHT "TO THE QUESTION - ARE YOU THINKING OF" 

;";'=■; 5 PRTNT "AN ANIMAL? IF YOU WOULD LIKE A" 

oT^'Pi PRINT "LIST OF ALL THE ANIMALS I KNOW TYPE" 

385 PRINT "THE WORD LIST AFTER THE -ARE YOU..." 

400 PRINT 

415 PRINT "O.K. I AM READY NOW." 

430 PRINT 

4 45 D I M H$ ( £00 ) ? CS ( 406 ) ? Q ( £08 ) 

460 A£C1)="EIRD" 

475 A$i£3="FISH" 

490 H$i33="FROG" 

505 H$f4l="D0G" 

520 H=4 

535 C$i;i)=" 

565 C$l3)^"D0ES IT HOP" 

580 C5i:4!="DnES IT GO BOW WOW" 

595 Q ( 1 ) =0 

610 Q(£)=l 

6S5 Q(3)=10 

640 Qf4)=ll 

655 PRINT 

670 PRINT "ARE YOU THINKING OF AN ANIMAL?"? 

685 INPUT F-$ 

700 IF F$="STOP" GOTO 3978 

715 IF F$="S" GOTO 397© 

730 IF F$="NO" GOTO 655 

745 IF F$="N" GOTO 655 
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7613 IF Fs="LIST" GOTO 3885 

775 IF F£="L" iSOTU 3805 

790 IF F$="Y" GOTO 865 

805 IF F^O'^VES" GOTO 835 

880 GOTO 865 

835 PRINT " PLEASE RHSWER YES OR HO. " 

865 REM 

880 PRINT "HOES IT SWIM?"? 

895 INPUT F*^ 

910 IF F5="Nn" GOTO 1800 

9S5 IF F$="N" GOTO lOOO 

940 IP r$="VES" GOTO £605 

955 IF F$="Y" GOTO £605 

970 PRINT "PLEfiSE ANSWER YES OR HO." 

985 GOTO 880 

1000 PRINT "IS IT fl REPTILE"? 

1015 INPUT F^ 

1030 IF F$="NO" GOTO 1518 

1045 IF FS="N" GOTO 1518 

1060 IF F$="Y" GOTO ii£0 

1075 IF F$="YES" GOTO 1 1£0 

1090 PRINT "PLEASE ANSWER YES OR HO!" 

1 1 05 GOTO 1 000 

1 1£0 FOR 1=3 TO N 

1135 IF 0(13=10 GOTO 1£55 

1150 NEKT I 

1165 PRINT "WHAT ANIMAL WERE YOU THINKING OF' 

1 180 INPUT Z9$ 

1195 IF Z95="FR0G" GOTO 3738 

1810 P=10 

1££5 ES="FROG" 

1£40 GOTO 3££0 

1255 PRINT C5il) J 

1£70 INPUT F$ 

1£85 IF FS="NO" GOTO 1150 

1300 IF F5="N" GOTO 1150 

1315 IF F:£="Y" GOTO 1375 

1330 IF F5="YES" GOTO 1375 

1345 PRINT "PLEASE ANSWER YES OR HO ! " 

136ti GuTO 1£55 

1375 PRINT "IS IT A "R:|:(Ij5 

1390 INPUT F$ 

1405 IF FS="YES" GOTO 36S5 

14£0 IF F£="Y" GOTO 3685 

1435 IF F$="N" GOTO 1495 

1450 IF F$="NO" GOTO 1495 

1465 PRINT "PLEASE ANSWER YES OR HO!" 

1480 GUTU 1375 

1495 GOTO 1150 

1510 PRINT "DOES IT FLY"? 
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15£5 INPUT F-$ 

1540 IF F-5="YES" GOTCi_£a£0 

1555 IF F$="Y" GOTO £y£0 

1570 IF F$="ri" GOTO 1630 

15ft5 IF F.=="NO" GOTO 1630 

1600 PRINT "PLEASE hNSWER YES OR NO!" 

1615 GOTO 1510 

1630 FOR 1=4 TO M 

1^45 IF Qa:i=ll GOTO 1765 

1660 NEKT I 

1675 PRINT "WHflT LRND RNIMflL Dili YOU CHOOSE"? 

1690 INPUT Z9-^- 

1705 IF Z9$="D0G" GOTO 3730 

17£0 P=ll 

1735 B$="DOG" 

1750 GOTO 3££0 

1765 PRINT 05(1)5 

1730 INPUT F5 

1795 IF F$="NO" GOTO 1660 

1810 IF F5="N" GOTO 1660 

18£5 IF FS="Y" GOTO 1885 

3ft4fi IP F-P = "YES" GOTO 1885 

1855 PRINT "ANSWER YES OR NO!." 

1870 GOTO 1765 

1885 PRINT "IS IT A "H^fDJ 

1900 INPUT F$ 

1915 IF F5~"YES" GOTO SbcfS 

1930 IF F5="Y" GOTO 36£5 

1945 IF F$="N" GOTO £005 

i--)f.fi IF F$="NO" GOTO £005 

1975 PRINT "ANSWER YES - NO! " 

1990 GOTO 1835 

£005 GOTO 1660 

£0£0 REM THIS IS FOR ANIMALS THAT FLY 

£035 P=0 

£050 IF N<3 GOTO £4£5 

£065 W=3 

£080 U=N 

£095 FOR I=W TO U 

£110 IF Qil)=0 GOTO £155 

£1£5 WEXT I 

£140 GUTO £4£5 

£155 PRINT Ctfl)? 

£170 INPUT F$ 

£185 IF F$="YES" GOTO ££90 

££00 IF F$="Y" GOTO ££90 

££15 IF F$="N" GOTO ££75 

£P30 IF F$="NO" GOTO ££75 

££45 PRINT "YES OR NO - ONLY! !.." 

££60 GOTO £155 

££75 GOTO £1£5 
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££90 PRINT "IS THE HNIHRL fi "fl^CDJ 

£305 INPUT F$ 

£3£0 IF r$="YES" GOTO 364© 

£335 IF F$="Y" GOTO 3646 

£350 IF F$='^N" GOTO £41© 

£365 IF F$="NO" GOTO £410 

£380 PRINT "ONLY RNSWER YES OR NO! " 

£395 GuTU ££90 

£410 GOTO £1£5 

£4£5 PRINT "IS IT fi BIRB"? 

£440 INPUT F$ 

£455 IF F$="YES" GOTO 3640 

£470 IF F$="Y" GOTO 3648 

£485 IF F5='^N0" GOTO £545 

£500 IF F$="N" GOTO £545 

£515 PRINT "ONLY - YES - OR - NO!!.." 

£530 GOTO £4£5 

PRINT "WHRT IS THE RNIMflL YOU ARE THINKING OF?"? 
^t.t3 INPUT Z9$ 

Bs="BIRri" 

GOTO 3190 

REM THIS IS IF IT LIUES IN THE WATER 

P=1 

£650 U=N 

£665 IF N<3 GOTO 3910 

£680 FOR I=N TO U 

£695 IF Qi:i)=l GOTO £740 

£710 NE^T I 

£7£5 GOTO 3810 

£740 PRINT C$(D ; 

£755 INPUT F$ 

£770 IF F$="YES" GOTO £875 

£785 IF F$="Y" GOTO £875 

£800 IF F$="N" GOTO £868 

£815 IF F$="NO" GOTO £868 

£830 PRINT "YES OR NO PLEASE. . " 

£845 GOTO £748 

£860 GOTO £710 

£875 PRINT "IS IT A "R^fllj 

£890 INPUT F*: 

£905 IF F$="YES" GOTO 3648 

£9£0 IF Fs="Y" GOTO 3640 

£935 IF Ff="N" GOTO £995 

£950 IF F$="NO" GOTO £995 

£965 PRINT "PLEASE ~ YES OR NO!" 

£9y0 GOTO £875 

£995 GOTO £718 

3818 PRINT "IS IT R FISH"? 

30£5 INPUT F$ 

3048 IF F*:="YES" GOTO 3648 
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HZiSS IF f >='"■(" GOTO 364y 

-1070 IF F$="fin" GOTO 3139 

^ifiSF. IF F$="r-I" GOTO 3130 

U00 PRINT "PLEFlSE FiHSWER WITH fl YES OR NO!" 

■11 15 GOTO 3010 

::.13y PRINT "WHnT IS THE HNIMflL THRT YOU THOUGHT OF?"? 

n45 INPUT Z95 

n60 E$="FISH" 

5175 GOTO 3190 

3190 REM THIS IS WHERE THE COMPUTER STARTS IT LEARNING 

3 £05 IF B$~Z9> GOTO 373a 

Ei££0 FOR 1 = 1 TO H 

3£35 IF H$iI)=Z9$ GOTO 3£80 

3250 llEXT I 

"irft5 GHTO 3340 ___ 

3£80 PRINT " I SHOULD HRUE KNOWN THRT! I DON'T KNOW WHfi! " 

-■,£95 PRINT "I DID WRONG 

3310 PRINT "WELL, I'LL TRY TO DO BETTER." 
33£5 GOTO 655 

T-3==;5 PRINT "THE RNIMfiL YOU WERE THINKING OF WAS A "?Z9$ 
l^YPi PRINT "PLEASE TYPE IN A SHORT QUESTION THAT WOULD" 
■:;-:;95 PRINT "DISTINGUISH A "Zg^" FROM A "E$"." 

^1400 INPUT Z85 

3415 PRINT "FOR fl "Z9$" WOULD THIS BE CORRECT?"? 

•:;430 INPUT Z7t- 

3445 IF 775= "YES" GOTO 3535 

3460 IF Z7$="Y" GOTO 3535 

3475 IF Z7:="="N" GOTO 35£0 

-::d.QPi TF Z7^="Nn" GOTO 35£0 

3505 PRINT "ONLY ANSWER YES OR NO. THANK YOU" 

3'^£0 GHTO 3370 

3535 REM STORE THE NEW INFO. 

3550 fls:(N)=Z9$ 

3 5 65 C$ i N ) =Z8$ 

3580 QfN)=P 

3595 REM P IS THE FLAG =1 FOR WATER hNIMALj =0 LAND ANIMALS 

3f-,10 GOTO 655 

36£5 REM THIS IS WHERE THE COMPUTER: HAS THE RIGHT ANSWER 

3640 PRINT 

o|^i70 pRiiiT "^^ PAN UERY PROUD OF MYSELF ^^k" 

3685 PRINT 

3700 PRINT 

3715 GOTO 655 

3730 PRINT 

-;745 PRINT "A "Bs" IS fl "Z9f" SO YOUR LAST ANSWER" 

3760 PRINT "SHOULD HAUE BEEN - YES!" 

3775 PRINT 

3790 Gi iTO 364y 

3805 REM HERE THE LIST IS PRINTED 
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3oD0 

3865 
3880 
3895 
3910 
39S5 
3940 



40yy 
4015 
4030 
4045 
4060 



PRINT 

PRINT 

PRINT "HNINHLS 

PRINT 

FOR 1=1 TO N 
PRINT fl5a) ? 
HE>^T I 

PR I NT 
PRINT 

,~..-,-r-,-s ,.- ETEr 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
END 



'HRT I RLRERDY KNOW RREs 



'■THANK YOU FOR THE LESSON? 
"COME HGFlIN SOON." 
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ASTRONAUT: 

D ESC R IPTION 
This is a computer simulation of a space ship in the process of landing, some 

where. There are choices of landing sites available for use. This program of- 
fers a variety of other features; such as describing the way an object falls 
in various environments. 



INSTRUCTIONS 

The program is self prompting and will ask all necessary questions. For addi- 
tional information read the following instruction pages. The program may also 
be listed for information. An example of a lunar landing simulation is pre- 
sented at the end of the source code listing. 



L I MIT A T IONS 

The following statements appear in the program: 120 DIM(20,4)/500 Chang C$ to 

C/550 ASC( )/1410 NUM( ). The source code is lOK Bytes long and the program 

should execute in about 14K Bytes of memory in most systems. 
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HSTROriHUT 



10 REM THIS IS THE GHHE flSTRONfiUT 

E0REM 

30REM DESCRIPTIiDr-!"- ■ fi LUNRR LfiNBIHG SIMULRTIOH. THE USER PILOTS 

40REri fl LUHflR LFlHDER TO fi SOFT LfiNIUNG OH THE MOON. 

SOREM 

bOREM INSTRUCTIONS— FOR COMPLETE INSTRUCTIONS—TYPE "RUN"» 

7 ©REM 

90REM 

1 00 DEF FNR i K ) = I NT i X'*' 1 00+ . 5 } '- 1 ©0 

1 1 D I M Df- (7) ? C$ ( 30 ) J D ( 30 3 ? C ( 3£i 3 ? F ( 30 ) 

1 £ D I M S ( £0 3 ? R C £0 ? 4 ) ? P:$ i 1 00 3 

130REM REfllt MESSRGE FILE 

140 GOSUE £990 

150 J7=7 

160 D$a3="NEW" 

170 D$C£3="Sifl" 

130 D$f33="nLD" 

190 D5i43="INS" 

£00 D$i53="EfiR" 

£10 D$C63="Mun" 

£30 PRINT'TOr" INSTRUCTIONS TYPE ' ' AFTER 'COMMfiND — ?' RPPEflRS. " 
£40 PRINT" 

FOR STRNIiRRD GRME TYPE 'STfi' AFTER ' COMMflND--? ' RPPEflRS," 
£50 PR I NT "TO STOP PLAYING TYPE END RFTER THE COMMflND?" 
£b0REM LUNRR GRRUITY IS DEFAULT INITIALIZATION 
£70 LET G=5 

£30REM INITIALIZATION OF HSjUS^FSsFS FOR "OLD" COMMflND 
£90 GOSUB £310 
300 LET G$="M00N" 
310 LET C$="0" 
3£0 PRINT"CnMMAND— "? 
33y iNPU! CS 
340 PRINT C$ 
350REM NOT CAR. RET. 
360 IF C5="0" THEN 390 
370 IF CS="END" THEN 3450 
380 GO TO 48Ci 
390 PRINT" 

COMMflND" ; TAB f £53 ? "EFFECT 
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4Pia PPTNT" IHS - LISTS INSTRUCTIONS FOR UPERflTIHG PROGRfiM" 

41 PI PRINT" STfl - STflNDRRB INITIfiL URLUES" 

4£0 PRINT" NEW - NEW INITIfiL URLUES" 

43Pi PRINT" OLD - PREUIOUS INITIfiL URLUES" 

440 PRINT" EP.R - EARTH LRNDING" 

4 Pi Pi PRINT" MOO - MOON LRNIIING" 

460 PRINT" TfiE - PRINTS TRELE OF HEIGHTS RND SPEEDS FOR FALLING BODY" 

470 GOTO 310 

480 LET C0=1 

490REM DECODE ALL COMriRNDS 

500 CHANGE C$ TO C 

510 LET J1=0 

5E0REM CHECK CHARACTERS 

530 FOR J=l TO 0(0) 

540 LET Ci=CiJ3 

550 IF Ci<=fiSCCZ) THEN 600 

560REN MAKE UPPER CASE 



•-1 i KJ 



c^T 



C1=C1- 



580 GOTO 550 

590REM UAL ID ALPHA 

600 IF C1>=fiSCCfl:i THEN 700 

biOREM SKIP flPOSTROPHES 

620 IF Cl=ASCi:':i THEN 7£0 

630REN SKIP SPACES 

ft 4m IF Cl=HSCi: 1 THEN 728 

650 PR I NT "HON- ALPHABETIC CHARACTER IN YOUR COMMAND "SC^fOJ"." 

660 PRINT" 

RETYPE "? 
670 IF C0=1 THEN 3£0 
680 PRINT"ENTIRE INPUT LINE." 
69G1 GOTO 310 
700 LET Ji=Ji+l 
710 LET C(J11=C1 
7£0 NEXT J 
730 IF Ji<3 THEN 81© 
740 LET C!0)=3 

750REM THREE CHARACTER COMMAND 

760 CHANGE C TO C$ 
770 FOR J=l TO J7 
7S0REM COMMAND DECODED 
790 IF C$=Dt-i:j;i THEN 930 
800 NE^T J 

810 PR I NT "YOUR COMMAND IS ILLEGAL! LEGAL COMMANDS ARE: " 
8£0 FOR .J=l TO J7 

830 PRINT" "5d$i:j:i ; 
£i40 ne>-:t J 

850 PRINT 

860 PRINT"TYPE O AT NEXT COMMAND—? FOR EXPLANATION OF COMMANDS" 

870 PRINT" OR R LEGAL COMMAND TO CONTINUE" 

880 GO TO 3£0 
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89€iREM 

geeREM 

910REM EXECUTE CuMMRr-HiS :*^'«-*: 

920REri 

930 ON J GOTU 950! 9805 10105 1070! 1110? 1160? 1£00 

940REM START NEW GRME 

95y iJUSUE £600 

960 GOTO 1££0 

970REM STRRT STflNIiflRD GAME 

99ti GOylJB £310 

990 GOTO 1££0 

1000REM FELOflD OLD INITIAL UflLUES 

1010 LET H=H5 

10£0 LET U=U5 

1030 LET F=F5 

1040 GOSUB £440 

105£i GOTO i£3£i 

1 060REM PR I NT I NSTRUCT I ONS 

1070 PRINT"THE INSTRUCTIONS RRE WITH THE PROGRRM DOCUMENTflTION" 

1 080REM rW:XT COMMRND 

109£i GO TO ££90 

U00REM ERRTH GRRUITRTION 

1110 LET G=3£ 

il£0 LET G$=-^ EARTH" 

1130 LET F5=F5^3 

1 1 40 LET F£=F£^3 

1 1 50 GOTO ££90 

1160 LET G=5 

1170 LET G$="riOuN" 

1 1 80 GOTO ££90 

1190REM PRINT FALLING BODY TABLE wsKffiJKSSWffi 

l£ti0 GOSUB £850 

IS 10 GOTO ££90 

1££0 GOSUB £5£0 

1 £30 PR I NT " BURN " ? TAB ( 7 ) 5 " T I ME " J TAB ( 1 5 ) 5 " HE I GHT " ? TAB ( £4 ) ? " SPEED " 5 

1£40 PRINT TAB f43i ; "FUEL" 

1£50 LET T=0 

l£60REf1 INITIALIZATION FOR MAT INPUT ^^^^ 

1£70 LET Nl=NUM(ft3 

1 £80 PR I NT TAB (735 FNR f T ) J TAB (151? FNR ( H 3 J TAB (£435 FNR ( U 3 5 TAB ( 33 3 P 

1£90REM *:s»^« IMPACT OCCURS «5«k 

1300 IF H<=0 THEN £150 

1310REM ^*^:5Kffi pijEL REMAINS ^^3« 

13£0 IF F>.0001 THEN 139© 

1330 IF F1=0 THEN 1370 

1340 PR I NT "OUT OF FUEL. FREE FALL STARTS NOW." 

1350REM SET BURN RATE TO ZERO 

1360 LET F1=0 

1370 PRINT TAE(£3 ?FNR(F13 

1380 GOTO 1630 

1390 PRINT FNR(FJ 
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14HkiPEM ALL INPUT DflTR USED 

1410 IF Ni=NUMfK) THEN 1469 

14£@ LET N1=N1+1 

1430 LET F1=F!:H1) 

1440 PRINT"_"iFl 

1450 GOTO ij4y 

H-ftfl MFlT INPUT F 

jd.7m rr Niiriiyi>0 THEN 1519 

J 480 PRINT" INPUT YOUR BURN? WHICH MUST BE fl NUMBER BETWEEN 6 FiND";F£ 

^^490 ip NUN(:-<)=0 THEN 1460 

1500 GOTO 1460 

1510 LET Hl=l 

15£0 LET F1=F(1) 

1530REM riO TOO BIG 

j 540 IP RBS(F1)<=F£ THEN 1580 

1550 PR I NT "BURN RATE TOO BIG. — LIMIT " ? F£ 

j ^if.fi GriTil 1 46£i 

1570PEM FUEL LEFT RFTER BURN 

i5R0 IF flBSlF13<= F THEN 1630 

1590REM TIME OF BURN OUT 

1600 LET Tl=F.--HBS(Fi:i 

1610 GOTO 1650 

16£0REM ONE SEC« INTERUflLs OR STEP TO NEfiR SEC. 

J 630 LET Tl=INTi:Ti+l-T 

1640REM FlCCELERflTIOH S5s»:ffi-«»: 

1650 LET H=F1-G 

i £ £0 IP Mj;C;fpj) >„ 00001 THEN 175ti 

1670REM HOT HOUERING 

1680 IF flBSOJl >, 00001 THEN 173© 

J g, 90Rpri HOUER I NG 

1 7dCi ! p7" Tft=T7=y99y9 

1710 GOTO 1880 

1780REM ZERO ZCCELERRTION 

1730 LET T6=T7=H.--U 

1740 GOTO 1880 

1750 LET T3=U.--H 

1760 LET T4=£:«H.--fl 

1770 LET T5=T3s;T3-T4 

1780REM NEG. DISCR. MEANS NO ROOTS 

1790 IF T5<0 THEN £040 

1H00 LET T5=SQRn'53 

1810REM T6g:T7 ARE IMPACT TIMES FOR THIS A,H!?:U 

18£0 LET T6=T3+T5 

1 -■■-■0 j ITT T":'=T--;— T=; 

1P40REN NEXT FEU LINES TEST T6 NAD T7 TO SEE IN THEY OCCUR DURING 
io=;0pFhi THE TIME TNTEPOAL 8 TO Tl . IF SO? IMPACT OCCURy. IF BOTH 
iP^-.0PQ^ T6 AND T7 ARE IN THE INTERUflL. 1 HE EhRLIER lb THE I^iFRL.T 
]p,7^4 TIME^ Tl IS REPALCED BY THE IMPACT TIME IF IN THE INTERUAL. 

Is^:p0 IF T6<0 THEN £810 
lH-%-1 IF T6>T1 THEN £010 
1900 IF T7<0 THEN 1956 
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1910 IF T7>T1 THEM 1958 

19e9 IF T6<T7 THEN 1959 

1930 LET T1=T7 

1940 GOTO 1970 

1950 LET T1=T6 

1960REri "^^ IMPACT HEIGHTH ^^^^ 

1970 LET H=0 

1980REri SPEED CHFiNGE 

1990 LET fl=fl"*=Ti 

£0-00 GOTO £6180 

£010 IF T7<0 THEM £840 

£0£0 IF T7<=T1 THEM 1938 

£030REM SPEED CHRNGE 

Pfi40 LET P=R»«T1 

£050REM NEH HEIGHTH 

£060 LET H=H~CU-fl.--£:i^Tl 

P070REM NEW SPEED 

Pfifm LET u=y)--f\ 

£090REM HEW FUEL SUPPLY 

£100 LET f=f--hbsi:fi:i»;ti 

£110REri NE>^T TIME 



£1£0 LET T=T+T1 



£130REM GET NEXT BURN RATE 
£140 GO TO lc:80 
£150 PRINT FNR(F) ;" 

£160 FOR L=i TO Ltf 

£170 IF U<L(L) THEN ££88 

£180 NEKT L 

£190REM GET riEKT MESSRGE ::::: 

££00 LET T(L1=T(L1+1 

££10 IF T(L)<=SCL:i then ££30 

£££0 LET T!:l;i=i 

£ £30 PR I NT R-$ ( R C T C L ) ? L J ) J " 

II 

££40REri i^^m^ TRY flGfllH ^^^^ 

££50 PRINT"WRNT ANOTHER TRY WITH THIS DATA??- (YES OR NO) 

££60 INPUT 0$ 

££70 IF 0$="YES" THEN 1018 

££80 IF Ot-="Y" THEN 1818 

££90REM ?K5a:H«»tSt»-:K5«»f tiEKT COMMflrffi 

£300 GOTO 310 

£310REM ^^^ STANDARD PRRflTIETERS m^mfim/i 

£3£0 IF G=5 THEN £488 

£338 LET H5=H=500 

£340 LET U5=U=50 

£350REM MORE FUEL FOR EARTH GRRUITY 

£36ei LET F5=F=308 

£378REM MORE THRUST 

£380 LET F£=108 

£398 GOTO £448 
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c:400 LET H5=H=500 

£410 LET U5=U=50 

£4£0 LET F=F5=1£0 

£430 LET F£=30 

£440 LET E=U^U.--£+G^H 

£450 LET Hi=E>^T£ 

£460 LET Ui=SQR(£*^i:E-GS«Hi) ) 

£470 LET F3=£»^E.--U1 

£480 LET U9=SQRi:£SE] 

£490 LET T9=£^H./'(U+U9) 

£500 LET F8=F-IHTi:F3+.51 

£510 RETURN 

£5£0 PRINT" 



START I NG HEIGHTS "IH? "FT" 
£530 PRINT"STRRTING SPEEDS "j U? "FT-^'SEC" 
£540 PRiriT"FUEL SUPPLYs "IFJ "UNITS" 
£550 PRINT"MHXiriUM BURNS " ? F£5 "UNITS.^SEC" 

£560 PRINT"EURN TO CRNCEL GRflUITY OF "5 G$; " : " 5 Gj "UNITS^^SEC" 
£570 PRINT" 

CRASH TIMES " ?T9? "SEC" 
£580 PRINT"CRRSH SPEED? "jU9j "FT.-'"SEC" 
£590 RETURN 

£b00REM '^^- RHNDOM UflLUES FOR fl NEW GAME ^^ 
£610REri BURN RATE 
£6£0 LET F£=£*^G+5SINT(7S^RNDf:K3+l]i 
£630REr BURN PERIOD 
£640 LET T3=INTf6«RND(:K) )+3 
£650REM flCCELERRTIN FOR BURN 
£660 LET H=F£-G 

£670REN UELOCITY AT START OF BURN 
£680 LET U1=H-T3 

£690REri_ HEIGHTH AT START OF BURN 
£700 LET Hi=Ul^T3.--£ 
£710REM FUEL USED 
£7£0 LET F1=F£»;T3 
£730REM COASTING PERIOD 
£740 LET T4=l + INTtT3.-'£+3*^RND(X)) 
£750REM INITIAL SPEED 
£760 LET U5=U=Ui-G«T4 
£770 LET H=Hi-G»;T4*;T4.--£+Ul«T4 
£780REM INITIAL HEIGHTH 
£790 LET H5=H=5SINTi:H.-54-.5) 
£800REM INITIAL FUEL SUPPLY 
£810 LET F5=F=5ssiNTi;i.£55KF£/'5+.5) 
£8£0REt1 MAX. BURN RATE 
830 LET F£=5»^INT(l.£5SF£x-5+.5} 



840 GUlU £44ti 

850REM FALLING BODY TABLE 
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£860 PRINT" 

HOW H BUKY FRLLS FROM REST ON THE " ? G$ 

£870 PRINT" 

f flnPELERRT ION = " ? G 5 " FT^SEC^-SEC ) " 
ppfto ppTHT TRBiPi 5 "TIME"5THBf ii) ? "BISTflNCE" ? THE (££3 ? "SPEED" 
£990 PRIMT TAB (£3 ? " fSECJ "sTflEflSi; " (FT) "!TREi:£13? " CFT.^-SECI " 
£900 PRINT 
£910 FOR T=0 TO 18 

29PB PRINT THE (33 ? T? TRE ( 133 ? G^^T^T^E ? TAB ( £3 3 5 G^T 
£930 NEXT T 
P940 PRINT" 

TiTRTFir^CES ARE MEfiSURED FROM POINT OF RELEASE" 
£950 PR I NT "DOWNWARD TO THE POSITION AT THE END OF EACH" 
£960 PR I NT "PERIOD OF TIME. 

I! 

£970 RETURN 

£980REM 

£9C!9PE;t^ INPUT ERROR MESSAGES s;«;«s»;»; 

3000REM 

3010REM # OF SPEED CATAGORIES 

30£0 L0=4 

:-\Pi>iB FOR L=l TO LO 

3e40i<FM LANDING SPEEDS FOR MESSAGES 

3050 READ L(LJ 

3060 ne:^-^:t l 

3070 DhTA 5? 15? 3y 5 99999 

3080 X7=37 

3090 FOR 1=1 TO K7 

3100 READ L 

3110 LET S(Lj=S(L3+1 

3i£0REM # MESSAGES ffiSrSiS 

3130 LET S=S+1 

3 1 40REM MESSAGES s^*;*:^ 

3150 READ R$(S3 

3160 LET R(S(L3?L3=S 

3170 NE>u I 

o|CM tihTR 3, no WRY. '1? your MISSION WAS AS THEY SRY- NOMINHL. 

qiofl TipTfl 4<nOH. ..I GRN'T LOOK AT THAT MESS. ^S? WELL BACK TO THE DRAWING iiOARD 

^>2m DRTP 4?ELU0D--Gufs-TWISTED METAL. . . YUCK ! ? 3? THIS LEM COST s73-£57-89£. £5 

-:; p I pi TiflTH 3 , PLEASE DON ' T L I TTER s £ ? DA CAPO ? £ ? UTRH t'EZ . ? £ ? REP I TEZ .si? YES 

ppopi pFijpi 4, IP vnijR n-^sURArCE PAID UP? ? 1 ? GLORYOSK Y-HE MADE IT 

pp-opi ppjp 4,YnMp NEXT OF ^aN WILL BE NOTIFIED^ 4? THAT' S A SOFT LANDING? 

ppi^ riRTR 3, YOU'RE hLII-JE- MAJOR ARMSTRONG -BUT YOUR FLYING DAYS ARE OUER 

ppc^,^ Tipjyp 4, WHY DON'T YOU TAKE UP G0LF?!4?HAUE YOU TRIED TIDDLEWINKS? 

pofz^p TihTA 3, simply SMASHING. .? 3? a CRASH PROGRAM? 1 5 UUTAylGHT. 5 1 sRIUHT ON 

po7Ci iiPTA 1,0H WOW^P'HO HUM. ? 3s IT SEEMS YOU'RE GROUNDED. 

pc.opi TiRTR 3, MAYBE YOU'RE JUST NOT CUT OUT FOR THIS KIND OF WORK. 

ppcpi TiPTR 4'DID YOfi SEE WHAT I SAW- URUILLE?? 1 ? IT' S CHARLES LINDEERG 
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:l3e€l 

5310 

:13S0 
::33Q 
:1340 
:!350 
:l360 

5380 

:i39Gl 
5400 

5410 
54S0 
5430 

5440 
5450 



DflTfl 

BflTfi 

DfiTfl 

DRTR 

DflTfi 

DRTR 

FOR 

FOR 

LET 

LET 

LET 

LET 

t€XT J 

\wyj L 

RETURN 

Er-iii 



4jWHEEE.5 3jMhYBE 

£jEuerythihg has 



YOU COULD get fl POOLED- 
IT'S UPS AND DOWNS. 



RISK POLICY? 



4 J ZONK.? 4? TO DIE- TO SLEEP- NO riORE„ . . 

3? IT'S fi BIRD!! IT'S fl PLANE! ! ! IT'S H MISCfiLCULRTION. 

45 ACTION UNGOUERENED BY THOUGHT ENDS IN DISASTER. 

£jARE you ACCIDENT PRONE?? £5 TERRA-FIED??? 
L=l TO L0 
J=SiL) TO £ STEP-1 
I=RNDfX:i«.J+l 

ri=ri:i3l:i 
rcijLi=ri:j?lj 

Rfj5L)=Rl 




133 



fiSTROr-inUT I MSTRiJCT I ONS 



YUU RRE THE PILOT OF fl LUNflR LfiNDER fLEM) . INITIRLLV '.Ti! IR LETI IS' 
SEUERRL HUNDREIi FEET REOUE THE LUNAR SURFACE RND I?: HHPTLIHr-, sTPfllGHT^ 
DOWN TOWARDS IT- PICKING UP SPEED AS IT FALLS- WITH ITS pnCKET. 
ENGINES TURNED OFF. YOUR OBJECT I UE IS TO MAKE A SOFT LANDING AN THE. 
MOON. THE ONLY THHiG YOU HRiJE TO EFflKE YOUR FALL WITH IS YOUR, 
ROCKET ENGINE, YOU HAUE TO DECIDE WHEN TO TURN IT ON AND HOW MiCH' 
THRUST TO USE. ONCE fl SECOND YOU GET fl CHANCE TO CHANGE YOUR HIND. 
AND USE H DIFFERENT AMOUNT OF THPUST. AT THE END fiF EICPY SEPOND fiF^ 
YOUR FLIGHT THE COMPUTER WILL TELL YOU HOW HIGH YOU ARE- HAW FAST. 
YOU ARE FALLING- AND HOW MUCH FUEL IS LEFT. s 

1. ABOUT YOUR ENGINE. YOUR ENGINE HAS TWO LIMITATIONS: THERE IS R^ 
MAKIMUN AMOUNT OF THRUST IT CRN EKERT- AND THERE IS A LIMITED^ 
HMOUNT OF FUEL ON BOARD. ONCE YOUR FUEL IS GONE YOU FALL LIKE A^ 
BRICK. YOU HAUE ENOSJGH EXCESS TO GIUE A SAFETY FACTOR- BUT NOT. 
ENOUGH TO BE SLOPPY. ? 

£. HOW TO SPECIFY YOUR THRUST. THE FORCE OF YOUR THRUST IS DETERMINED.. 
BY THE AMOUNT OF FUEL BURNED EACH SECOND IN YOUR ENGINE. AT THE END- 
OF EACH SECOND OF YOUR FLIGHT YOUR TERMINAL WILL TYPE A QUESTION' 
NARK IN A COLUMN LABELLED 'BURN'. YOU MUST THEN TYPE THE M IMBEP OF' 
UNITS OF FUEL YOU WANT BURNED DURING THE NEXT SECOND. MORE FUEL' 
EQUALS MORE THRUST. ? 

3. DEFINITION OF 'UNIT OF FUEL'. THE EFFECT OF BURNING HNE UNIT OF' 
FUEL PER SECOND IS TO REDUCE YOUR ACCELERATION TOWARDS THE MOON' 
BY ONE FOOT PER SECOND EACH SECOND. SINCE LUNAR GRAOITY CAUSES, 
YOUR LEM TO ACCELERATE 5 FT.-SEC EACH SECOND- THIS MEANS THAT IF YOU, 
BURN 5 UNITS OF FUEL PER SECOND LUNAR GRAUITY WILL BE CANCELLED ANDj 
YOUR SPEED WILL NOT CHANGE DURING THAT SECOND. TO SLOW DOWN- YOUR, 
BURN MUST BE LARGER THAN 5 UHITS/^SEC. LESS THAN r, UNITS, 

MEANS A SPEED-UP. j 

4. HOW SOFT IS 'SOFT'? YOUR LANDING WILL BE CONSIDERED SOFT IF YOUR, 
SPEED AT TOUCHDOWN IS 5 FT-'SEC OR LESS. IF YOU HIT TOO HARD- ALL IS, 
NOT LOST. THE PROGRAM WILL RESTART WITH THE OLD INITIAL UALUES FOR, 
HEIGHT- SPEED- AND FUEL SUPPLY AND- UNLIKE REAL LIFE- YOU CAN TRY. 
AiJAIN. ONCE YOU HAUE MADE fl GOOD LATiDING THE PROGRAM WILL TYPE THE' 
PHRASE 'COMMAND—?' IF YOU WANT TO TRY FOR AN EUEN SnpTER LANDING' 
FOR THE SAME INITIAL UALUES YOU SHOULD TYPE 'OLD'. IF YOU WANT A NE' 
SET OF INITIAL UALUES- TYPE 'NEW'.? 
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IF IT'S HfiRD TO LfiriD ON THE MOON YOU SHOULD TRY IT ON EARTH. flriD YO? 
UHH if you WflNl TO. WHEN 'COMMflND — ?' flPPERRS- TYPE * EARTH' IN? 
ORBERTO UHRNGE TO EARTH GRfiUITRTION. SINCE GRRUITflTIONAL fiCCELERfi-? 
i ION ur-i EARTH IS 32 FT.---SEr:..--SEC- YOU MUST BURN MORE THAN 3£ UNITS OF? 
FUEL PER SECOND TO SLOW DOWN. (TO GO BACK TO LUNAR GRAWTThTION TYPF- 
niOON' THE NEXT TIME 'COMMAND—?' APPEARS. 1 ? 

HELPFUL £?) TABLES. YOU MAY FIND IT HELPFUL TO HAUE SOME INFORMA-? 
'i ION ON iHE WHY A BODY FALLS FROM REST ON THE MOON (OR EARTHl . IF? 
YOU RESPOND TO 'COMMAND — ?' Br TYPING 'TABLE' YOUR TERMINAL WILL PRO? 
DUCE A I ABLE SHOWING- AT ONE SECOND INTERNALS- THE DISTANCE A BODY? 
HAS FALLEN BELOW ITS INITIAL HEIGHT AND THE SPEED IT HAS REACHED. ? 

INPUT CONUENIENCES. 5 
A. COMMANDS SHOULD BE AEBREUIHTED TO THEIR FIRST 3 LETTERS,? 
E. COMMANDS WILL BE REQUESTED UNTIL AN? 
'END' COMMAND IS TYPED IN.? 

C, A SERIES OF BURNS CAN BE TYPED? 

AT iHE SAME TIME. THEY WILL BE E^^ZCUTED IN LEFT-RIGHT OpTsEP. t 

D, THE NUMBERS MUST BE SEPARATED BY COMMAS? 
AND ONLY NUMBERS MAY BE ENTERED? 

FOR THE NOUICE. IF YOU HAUE NEUER USED THIS PROGRAM BEFORE YOU? 
SHOULU E:KPERIMENT WITH a STANDARD SITUATION FIRST. NORMALLY? 
INITIAL UALUES ARE SELECTED AT RANDOM WHENEUER A 'NEia' GAME BEGINS.? 
HOWEUER- IF YOU INPUT THE COMMAND 'STANDARD' YOU WILL ALWAYS GET? 
THl same INITIAL UALUES. ONCE YOU HAUE MASTERED THE STANDARD GAME? 
YOU CAN (H) IMPRESS YOUR DATE WITH YOUR SKILL- AND (E) HOOF ON TO, 
MORE INTERESTING THINGS.? 

HAPPY LANDINGS. ? 
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R:Llii FiSTROiiFiUT 



FOR IMSTRUCTIOMS TVPE ' INS' RFTER ' COMMRND — ?' flPPERRS. 

FOR STRNIifiRIi GAME TYPE 'STR-' AFTER ' COMMflNIi — ?' RPPERR! 

COMMflND — -TSTR 

STR 



STRRTING HEIGHT; 506 FT 

START IMG SPEED: 59 FT-^'SEC 

FUEL SUPPLY s ISO UNITS 

MflyiMUil BURNS 30 UNITS-^'SEC 

BURN TO CRNCEL GRflUITY OF M00Ns 5 UNITS.--SEC 

CRASH TIME: 
CRASH SPEEDS 

BURN TIME HEIGHT SPEED FUEL 

1£0 



^3£0508 : 


SEC 




86.60S54 


FT.- 


•-SEC 


HEIGHT 


SPEED 


500 




50 


448.5 




O-I' 


394.5 




55 






115 
>0 1 1 5 



4 £y6.5 61 111 

5 £14 64 109 

6 148,5 67 107 
■?5 

7 81.5 67 i0£ 
Y0 

S 1£ 73 10£ 

BURN RATE TOO BIG. —LIMIT 30 
■?30 

3.17 67.71 96.85 

HE'S BLASTED OFF TO THAT GREAT SPACESHIP IN THE SKY 

WANT RNOTHER TRY WITH THIS DRTH??- i YES OR NO) 

?N0 

COMMAND — -TEND 

END 
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BAGEL: 

DESCRIPTION 

In this game the computer guesses a four digit number. The number may be 
plus or minus and is chosen randomly. The computer gives you clues every 
time you make a guess. 



INSTRUCTIONS 

The program will provide prompting where necessary. For additional instruc- 
tions list the program. 



LIMITATIONS 

Nine K Bytes of memory are required to store the source code for this pro- 
gram. The game should execute in UK Bytes of memory. There is a sample run 
of the game following the source code listing. 
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L?0 REM PROGRRMMED BY ROGER BROWN 

140 REM EDITED BY MORT EERGER (SINCE ROGER BROWN CRN NEITHER HDD? 

liSe REM SUETRflCT!. NOR SPELL) 

ISO PRINT ''THIS IS fl GOME OE SKILL AND REILITY? IT'S CALLED BFiGEL. '^ 

£00 PRINT "THE COMPLITER WILL SELECT fl EOUR-DIGIT NUMBER AND YOU" 

££■0 PRINT "MUST GUESS WHAT THE NUMBER IS." 

£40 PRINT 

£60 PRINT "THE RULES ARE SIMPLE. YOU CRN PLAY A 'CRERM-PUFF' UERSION" 

£80 PRINT "OR A HIGH-LEUEL GAME WHICH IS MORE COMPLICATED." 

300 PRINT "IN THE HIGH LEUEL GAME THE FOUR-DIGIT NUMBER MAY BE " 

3£0 PRINT "EITHER POSITIUE OR HEGATIUE. " 

340 PRINT "AFTER I HA'JE SELECTED MY NUMBER YOU WILL GUESS WHAT IT IS" 

360 PRINT "BY ENTERING A FOUR-DIGIT NUMBER. I WILL TELL YOU HOW CLOSE" 

3S0 PRINT "YOU HAUE COME BY GIUING YOU THE FOLLOWING CLUES? " 

400 PRINT " BAGELS - NO DIGITS CORRECT" 

4S0 PRINT " PICO - ONE DIGIT CORRECT BUT IN THE WRONG POSITION" 

440 PRINT " FERMI - ONE DIGIT CORRECT AND IN THE RIGHT POSITION" 

460 GOTO 800 

480 Si=0 

500 PRINT "DO YOU WANT A HIGH-LEUEL GAME (1) OR A CREAM-PUFF GAME (£3 " 

5£0 PRINT 

540 INPUT PI 

560 IF Pl=l GOTO 680 

580 IF Pl=£ GOTO 680 

60ti PRINT 

6£0 PRINT "TYPE EITHER A i FOR A HIGH-LEUEL GAME OR" 

640 PR I NT "A £ FOR A CREAM-PUFF GAME" 

660 GOTO5£0 

680 PRINT 

700 P£=INT!:RNDi:-5i + 1.5i 

7£0 B3=!;-1)»^»^P£ 

740 IF pi=p GOTO 960 

760 PRINT "GOOD LUCK" 

780 GOTO 106£i 

800 PRINT 

8£0 PRINT 

840 PRINT "IF TWO NUMBERS ARE IN THE PROPER POSITION THE" 

860 PRINT "COMPUTER WILL PRINT 'FERMI FERMI.' IF THREE NUMBERS" 

880 PRINT "ARE IN THE PROPER POSITION, THE COMPUTER WILL PRINT" 

900 PRINT "'FERMI? FERMI? PERM I ' AND SO FORTH." 
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920 PRINT 

940 GOTO 5Gi0 

96Gi P3=l 

980 PRINT 

1000 Ni=0 

10£0 PRINT "FINE. I HflUE SELECTED MY NUMBER." 

1040 GOTO il£0 

1060 PRINT 

1080 Nl=ti 

1100 PRINT "NOW! PUE PICKED H NUMBER" 

1 1 £0 " 1 = ( RND ( ~ 1 ) + 1 J *^ C 1 0000 ) 

1 1 40 :•<£= f X 1 "• 1 0000 j 

iiibo >::3=iNT(:-;£i*^P3 

1 1 30 y7= T tiJ r ::-:;3x- 1 000 ) 

1£00 IF P3=i GOTO 1£40 
1££0 X7=X7+i 

1 £40 k6= ( I NT ( X3.-- 1 00 ) - C 1 km<7 3 1 
1£60 IF P3=i GOTO 1300 

1 £ 8 KJ i", t= "- :-'-j 6 "^ 1 

1 300 >-!5= ( I NT ( ><3---'' 1 ) ~ C 1 00^K7 3 - C 1 0^X6 ) 3 

13£0 IF P3=i GOTO 1360 

1340 ft5=>^5-M 

1360 X4= lX3~( 1000^;-"I73 - ( 100S?^63"( 10*K53 3 

1380 L1=0 

1400 PRINT 

14£0 PRINT "WHFiT'S YOUR GUESS" 

1440 GOTO i5£0 

1460 GOTO 1480 

1480 L1=0 

1500 PRINT "O.K.! WHAT'S YOUR NEXT GUESS" 

15£0 N1=N1+1 

1540 INPUT I 

1560 I7=INT(I.-'10003 

1580 IF I=>0 GOTO 16£0 

1600 17=17+1 

1 e.£0 1 6= i I tiT ( I •■•"■ 1 00 3 - i. 1 '3'^- 173 3 

164ti IF I = >0 GOTO 1680 

1660 16=16+1 

1680 15= C INT CI.-103-i: 100^173 -(10^163 3 

1700 IF I=>0 GOTO 1740 

17£0 15=15+1 

1 740 1 4= i I - i; 1 000« 1 7 3 •- ( 1 00* 1 6 3 - ( 1 0=«« 1 5 3 3 

1760 IF I7<>;K7 goto £006 

1780 IF I60X6 GOTO 186© 

1800 IF I50K5 GOTO i960 

18£0 IF I40X4 GOTO £400 

1840 GOTO 33£0 

I860 IF I50X5 GOTO 19£0 

1880 IF I40X4 GOTO 590© 

1900 GOTO £400 

I40X4 GOTO 5940 
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1 940 


GOTO 59£"iti 


1 960 


IF I40X4 GOTO 590^1 


1980 


GOTO £400 


£000 


IF I60X6 GOTO £!£© 


£0£0 


IF ISO^S GOTO £080 


£040 


IP I4<>y4 GOTO 5909 


£060 


GOTO £:4ti0 


£0S0 


IF I40X4 GOTO 5940 


£ 1 0£i 


GOTO 5900 


£ 1 £0 


IF I50X5 GOTO £180 


£ 1 40 


IF I40X4 GOTO 5940 


£160 


GOTO 590ei 


£130 


IF 140^4 GOTO PPP& 


££00 


UOTO 594y 


£££0 


IF 17=^6 GOTO £300 




IF I7=K5 GOTO £300 


££60 


IF I7=:k4 goto £300 


££80 


GOTO £540 


£300 


IF Li=l GOTO £440 


£3£0 


IF Li=£ GOTO £5£0 


£340 


IF Ll=li GOTO £480 


£360 


Ll=y 


£380 


GOTO £540 


£400 


Li = l 


£4£0 


GOTU £££0 


£440 


Li =3 


£460 


GOTO £540 


£480 


Ll = 13 


£500 


GOTU 5600 


■•-!c::""ii-4 


LI =4 


£540 


IF I6=>^7 GOTO £6£0 


£560 


IF I6=y5 GOTO £6£0 


£580 


IF I6=:K4 goto £6£0 


£600 


GuTO 60££1 


£6£0 


IF Ll=l GOTO £8£0 


£64£i 


IF Ll=£ GOTO £860 


£660 


IF LI =3 GOTO £900 


C'jl"^OtH 


IF Li=4G0T0 £940 


£700 


IF Ll=9 GOTO 5980 


£7£0 


IF Li =11 GOTO £780 


£740 


Ll=9 


£760 


GOTu 60£0 


£780 


LI = 13 


£800 


GOTO 5600 


£8£0 


LI =3 


£840 


GOTO 60£0 


£860 


Li =4 


£880 


GOTO 60£0 


£90£i 


LI =5 


£9£0 


GuTO 60£0 


£940 


Li =6 
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£960 


GOTO 5 


i6t10 




£980 


PRINT 






3000 


PRINT 


"FERMI" 




30£0 


IF PI- 


■■1 GOTO 3 


040 


3040 


PRINT 






3060 


GuTO i 


460 




3080 


PRINT 






3100 


PRINT 


"FTRNI" 




31£0 


PRINT 


"FERMI" 




3140 


PRINT 






3 1 60 


GOTO 1 460 




3130 


IF Pl = 


^1 GOTO £ 


980 


3 £00 


PRINT 






3££0 


PRINT 


"FERMI" 




3i£40 


PRINT 


"FERMI" 




3 £60 


PRINT 


"FERMI" 




3 £80 


PRINT 






3300 


GuTO i 


.460 




3320 


PRINT 






3340 


PRINT 


"YOU GOT 


IT!" 


3360 


PRINT 


"IT ONLY 


TOOK 


3380 


PRINT 






3400 


IF Nl- 


= 1 GOTO 3 


i7£0 


34£0 


IF NK!; 


5 GuTO 37 


'80 


3440 


IF Pl = 


= 1 GOTO 3 


;540 


3460 


IF Nl-^ 


33 GOTO 3 


i8£0 


34y0 


IF m< 


;i5 GOTO 


3860 


3500 


IF N1-- 


::£4 GOTO 


39ti0 


35£0 


IF Ni: 


>17 GOTO 


3940 


3540 


IF Ni^ 


■AS GOTO 


3680 


3560 


IF Ni'^ 


:£7 GOTO 


38£0 


3580 


IF Ni< 


::38 GOTO 


3640 


3600 


IF Nl-^ 


::55 GOTO 


3900 


36£0 


IF Ni: 


>3£ GOTO 


394ti 


3640 


PRINT 


"NOT Efil 


!. " 


3660 


GOTO ; 


3960 





fOU "5 Ni; "GUESSES" 



' I 



'„,.' ( 



30 PRINT "EXCELLENT! YOU DID IT IN LESS THRN 18 TRIES." 

■10 GOTO -r^ii^.O 

-■0 PRINT "THF ODDS PRE lOOOO TO 1 RGfllNST GUESSNG THE NUMBER IN' 

r40 PRINT "ONE TRY. YOU MUST BE fl SUPER-LUCKY PERSON." 

?60 GOTO 3960 

'80 PRINT " YOU MUST BE EITHER UERY GOOD OR UERY LUCKY." 

380£i GOTO 3960 

38£0 PRINT "UERY GOOD JOB." 

3940 GOTO 3960 

3860 PRINT "NOT EhD. NOT BRD AT ALL," 

3880 GOTO 3960 

3900 PRINT "I THINK YOU NEED MORE PRRCTICE. " 

39£0 GOTO 3960 

3940 PRIHT "YOU WEREN'T REALLY TRYING HRRD? WERE YOU ?" 

3960 PRINT 
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3980 


PRINT 




4000 


81=81+1 




4080 


IF Sl>=7 THEN 7540 




404ti 


PRINT "WOULD YOU LIKE TO 


TRY 


4060 


INPUT Ms 




4080 


PRINT 




4 1 00 


PRINT 




4180 


PRINT 




4 i 40 


IF ri:S="Y" GOTO 500 




4160 


IF M$="m" GOTO 500 




4180 


IF N$="YES" GOTO 500 




4£0tt 


IF m$="ve;s" goto 500 




4££0 


PRINT 




4840 


PRINT 




4860 


PRINT 




4880 


GOTO 7580 




4300 


PRINT 




4380 


PRINT "BRGELS" 




4340 


PRINT 




4360 


GOTO 1460 




4380 


PRINT 




4400 


PRINT "PICO" 




4480 


IF Pl=l GOTO 4440 




4440 


PRINT 




4460 


GO i 1 460 




4480 


PRINT 




4500 


PRINT "PICO" 




4580 


PRINT "PICO" 




4540 


PRINT 




4560 


GOTO 1460 




4580 


PRINT 




4600 


PRINT "PICO" 




4680 


PRINT "PICO" 




4640 


PRINT "PICO" 




4660 


PRINT 




468£i 


GUTO 1460 




4700 


PRINT 




4780 


PRINT "PICO" 




4740 


PRINT "PICO" 




4760 


PRINT "PICO" 




4780 


PRINT "PICO" 




4800 


PRINT 




4880 


GOTO 1460 




4840 


PRINT 




4860 


PRINT "FERMI" 




4880 


PRINT "FERN I" 




4900 


PRINT "PICO" 




4980 


PRINT "PICO" 




4940 


PRINT 




4960 


GOTO 14ft0 




4980 


PRINT 





IT flGfilN" 



142 



5000 PRINT "FERril" 
5020 PRINT "PICO" 
5040 PRINT 
5060 GOTO 1460 
5080 PRINT 
5100 PRINT "FERril" 
51S0 PRINT "PICO" 
5140 PRINT "PICO" 
5160 PRINT 
5180 GOTO 1460 
5 £00 PRINT 
5££0 PRINT "FERN I" 
5 £40 PRINT "PICO" 
5£60 PRINT "PICO" 
5£80 PRINT "PICO" 
5300 PRINT 
53£0 GOTO 1460 
5340 PRINT 
5360 PRINT "FERMI" 
5380 PRINT "FERMI" 
5400 PRINT "FERMI" 
54£0 PRINT "PICO" 
5440 PRINT 
5460 GOTO 1460 
5480 PRINT 
5500 PRINT "FERMI" 
PRINT "FERMI" 
;.540 PRINT "PICO" 
5560 PRINT 
5580 GOTO 1460 
5600 IF Pl=l GOTO 7£60 
56£0 IF Ll=l GOTO £980 
5t.4y IF Ll=£ GOTO 3080 
5660 IF LI =3 GOTO 4980 
5680 IF LI =4 GOTO 5480 
5700 IF Ll=5 GOTO 5080 
57£0 IF LI =6 GOTO 484© 
5740 IF Ll=7 GOTO 5£00 
5760 IF LI =8 GOTO 4580 
5780 IF Li =9 GOTO 4380 
5800 IF Li =10 GOTO 4480 
5S£0 IF Ll=ll GOTO 3180 
5840 IF Ll=i£ GOTO 470© 
5860 IF LI =13 GOTO 5340 
5880 IF Li=0 GOTO 4300 
5900 Ll=£ 
59£0 GOTO £££0 
5940 Ll=l 
5960 GOTO £££0 
5980 Ll=10 
6000 GOTO 60£0 



crcr 



rur ET." ,. 
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6040 

6060 
6080 
6 i 00 
6120 
6140 
6 1 €.0 
6180 
6 £00 
6££0 
6240 
6 £60 
6£80 
63£iti 
63£0 
6340 
636ti 
6380 
6400 

6440 
6460 
6480 
6500 
65£0 
6540 
6560 
6580 
660£i 
66£0 
6640 
666-0 
6680 
6700 
67£0 
6740 
6760 
6780 
6800 
68£0 
6840 
6860 
6880 
6 9 £10 
69£0 
6940 
6960 
6980 

7000 

70£0 



IF I5=::s7 GOTO 

IF I5=X6 GOTO 

IF i5=:k4 goto 

tJOTO 6600 
IF L.1=l GOTO 
IF L1=£ 

LI =3 
LI =4 
LI =5 
LI =9 
Ll = ii 



GOTO 
GOTO 
GOTO 

GOTO 
GOTO 
GOTO 



yy ! b54ki 



6 1 00 
6100 
6100 

300 

340 
380 
4£0 
460 

500 

6580 



ir 

IF 

IF 

IF 

IF 

IF Ll=il 

Li =9 

GOTO 6600 

GOTO 6600 

Li=4 

liO f 6600 
LI =5 

GOTO 6600 
Li =6 

GOTO 5600 
Ll=7 

GOTO 5600 
Ll = 10 
GOTO 6600 
Ll = 13 
GOTO 5600 

IF I4=!K7 GOTO 6680 
IF I4=X6 GOTO 66.80 
IF I4=K5 GOTO 6680 
GOTO 5600 
IF Ll=l GOTO 6900 
IF Ll=£ GOTO 6940 
IF Li =3 GOTO 6980 
IF Li =4 GOTO 70£0 
IF LI =5 GOTO 7060 
IF Li =8 GOTO 7££0 
IF Li =9 GOTO 7100 
IF Li=10 GOTO 7180 
IF Li=il GOTO 7140 
LI =9 
GOTO 5600 

GOTO 5600 
Ll=4 

GOTO 5600 
Ll=5 

GOTO 5600 
Li =6 
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7040 GOTO 5680 

7060 Li =7 

7080 GOTO 5600 

7100 Li =10 

71S0 GOTO 5600 

7140 Ll=i3 

7160 GOTO 5600 

-' 1 oci I 1 —p, 

I J. ■■-'hJ L- i — '_> 

7c'00 GOTO 5600 

7 £40 GOTO 5600 

7i260 IF L.1=0 GOTO 4300 

7c:S0 IF Ll = l GOTO £980 

7300 IF Li=£ GOTO £9y0 

73£0 IF Li =3 GOTO £988 

7340 IF LI =4 GOiO £980 

7360 IF Li =5 GOTO £980 

7380 IF Li =6 GOTO £988 

7400 IF Li =7 GOTO £980 

74£0 IF Li =8 GOTO 4380 

7440 IF LI =9 GOTO 4380 

7460 IF Li=10 GOTO 4380 

7480 IF Ll=ll GOTO £988 

7500 IF Li=l£ UOTO 4380 

75£0 IF Ll=13 GOTO £988 

7540 PRINT "YOUR EYES FiPPEflR TO BE GETTING BLOODSHOT; TIME FOR fl NflP. " 

f:.@ GOTO 7580 

PRINT ■•■ THANK YOU FOR PLAYING. HOPE YOU ENJOYED YOURSELF." 

7600 END 



1 _•'-." 
7 5 
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EFlGEL 



THIS IS H GRME OF SKILL HND REILITY? IT'S CRLLED EflGEL. 
THE COMPUTER WILL SELECT H FOUR-DIGIT NUMBER HMD YOU 
MUST GUESS WHAT THE NUMBER IS. 

THE RULES ARE SIMPLE. YOU CRN PLRY fl 'CRERM-PUFF' UERSION 
OR fl HIGH-LEUEL GAME WHICH IS MORE COMPLICRTED. 
IN THE HIGH-LEUEL GAME THE FOUR-DIGIT NUMBER NRY BE 
EITHER POSITIUE OR NEGRTIUE. 

AFTER I HRUE SELECTED MY NUMBER YOU WILL GUESS WHRT IT IS 
BY ENTERING fl FOUR-DIGIT NUMBER. I WILL TELL YOU HOW CLOSE 
■t'OU HRUE CONE BY GIUING YOU THE FOLLOWING CLUESs 
BRGELS - NO DIGITS CORRECT 

PICO - ONE DIGIT CORRECT BUT IN THE WRONG POSITION 
FERMI - ONE DIGIT CORRECT AND IN THE RIGHT POSITION 

THE CREAM-PUFF GAME GIUES YOU RDDITIONRL CLUES. 
IF TWO NUMBERS RRE IN THE PROPER POSITION THE 
COMPUTER WILL PRINT 'FERMI FERMI.' IF THREE NUMBERS 
ARE IN THE PROPER POSITION? THE COMPUTER WILL PRINT 
'FERMI? FERMI J FERMI' AND SO FORTH. 

DO YOU WANT A HIGH-LEUEL GRME (1) OR A CRERM-PUFF GAME (E) 



FINE. I HRUE SELECTED MY NUMBER. 

WHAT'S YOUR GUESS 

?£'34fc. 

P I CO 

O.K.! WHAT'S YOUR NE;<T GUESS 

?5179 

FERMI 
P I CO 

O.K.! WHAT'S "t'OUR NE^T GUESS 
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BIO* CYCLE: 

DESCRIPTION 
This program produces the famous Bio — Rhythm chart and provides you with 

a list of your critical days. On a critical day you are considerably more 
accident prone then on a non-critical day. A plot of your three rhythms — 
Cognitive, Emotional and Physical^ may be produced in addition to the list- 
ing of your critical days. 



INSTRUCTIONS 

The program is self prompting and contains a detailed set of instructions. 

Once loaded into memory type RUN, you will then be asked if you want instruc- 
tions. If you do you type in a Y or YES otherwise N or NO. List the program 
for subroutine details. 

LIMITATIONS 

This program is 9K Bytes in length and should execute in standard Basic. A 

sample run is included after the source code listing. This program contains 

a Julian Date subroutine and a Calender Dating subroutine. 
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:u CYCLE 



IMM PFM THIS IS E 10-CYCLE 

3 Ifi PRINT "■« MELCOME TO « BIO--CYCLE '^- - IF YOU WOULD LIKE" 

ISO PRINT "INFORMRTION TYPE H - 1? ELSE -2 "5 

130 INPUT S5 

140 PRINT 

150 PRINT 

Ifty IF S5<>i THEN 650 

lycj rz'prt-^j ". HELLO. T PM GOING TO TjRhW fl GRAPH OF YuUR BIO-CYCLE. ■:■■■:■■ !' 

|c;ti PRINT "WHAT IS R BIO-CYCLE ! INDEED ! IT CONSIST OF THE THREE" 

|9fl PRINT "RHYTHM'S THAT YOUR BODY IS CONSTANTLY GOING THROUGH. THESE" 

£00 PRINT "RHYTHM'S ARE AS FOLLOWS s " 

c'lM PRINT 

PRINT " 1. YOUR PHYSICAL CYCLE. THIS CYCLE AFFECTS THE MUSCLE FIBER:; 
;^ j=.PiHT "IN YOUR BODY. IN TURN THIS EFFECTS YOUR ENDURANCE? STRENGTH?" 
l^ PPIHT "AND PHYSICAL WELL BEING. EFFECTS WORSEN ON THE DOWN CYCLE (MINUS' 
-.=;,ji PRINT "SIDE OF THE CURUE) AND LESSEN ON THE (POSITIUE SIDE). THE PEAK" 
pg^ PRTHT "OF THE CMpLiE fpOSITIUE - TO THE RIGHT) REPRESENTS YOUR GREATEST" 
P7P ppTNT "PERIOD OF STRENGTH AND ENDURANCE? WHILE THE UALLEY (THE MINUS" 
pf.fi PRINT "SIDE - TO THE LEFT) IS THE POINT OF LEAST PHYSICAL RESISTANCE." 
p.ra^ PRINT " £. YOUR EMOTIONAL CYCLE. THIS CYCLE IS RELATED TO YOUR NERUOU 
qcit^, PRTHT "SYSTEM AND IT AFFECTS YOUR EMOTIONAL SENSITIUITY. THIS EFFECTS" 
■oif-j pp^NT "YOUR FRIENDLINESS? COOPERATIUENESS? AND YOUR OPTIMISM. WHILE" 
o£R PRINT "THIS CYOLE^ WHICH IS REPRESENTED BY THE CURUE DRAWN WITH THE" 

PRINT "LETTER 'E' ^ IS NEGhTIUE YOU ARE LIKELY TO BE IRRITABLE? EASILY" 



c:c;b 



:■" 



;-" 



!b1 



340 PRINT "FPUS 

350 PRINT 

360 PRINT "PROi 

370 



TITRATED AND POSSIABLY STUBBORN. 

YOUR COGNITIUE CYCLE. THIS CYCLE AFFECTS YOUR THOUGHT" 
-£;=:c:Ec:, hnD WUp ABILITY TO ANSWER QUESTIONS RAPIDLY" 
PRINT "AND ACCURATELY? AND YOUR ABILITY TO ABSORB NEW INFORMATION" 
rjci PRINT "AND TO BE ORTGINAL AND CREATIUE. ON THE DOWN CYCLE OF THIS RHYTHM" 
■;9,^ PRINT "YOU SHOULD REUIEW OLD CONCEPTS AND AUOID SPENDING TOO MUCH" 
4tifl PRINT "TIME BEING CREATIUE? m YOU WOULD BE CONSIDERABLY BETTER AT SUCH" 
41ft PRINT "TASKS ON THE RISING PORTION OF THIS CYCLE ESPECIALLY IF IT IS" 
4£0 PRINT "ON THE POSITIUE SIDE OF THE CYCLE." 
~4--;fi PRINT 

44fl PRINT " WHEN ANY OF THESE CYCLES ARE POSITIUE YOU ARE MOST ABLE IN" 
4c:;pj PRINT "THE AREAS GOUEPNED. WHEN THEY ARE NEiJflTIUE AND UR FALLfNG" 
4^ii PRINT "1 GOING FROM POSITIUE TO NEGATIUE) YOU LOSE SOME OF YOUR ABILITIES" 
47,i ppTf-^T "IN THE AREAS GOUERrCD. YOU SHOULD USE THIS PERIOD FOR THE" 
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.i-;i-i 



JCh'T 



ri'^-s 



1 1 ■-_> 



PRINT "RECUPERfiTIOH OF THE LOW RHYTHM. THE THREE CYCLES RRE" 
4'='-0 PRINT "PEPRESEriTED BY THE LETTERS 'P' - FOR THE PHYSICRL CYCLE" 
500 PRINT ^"E' - FOR THE EMOTIONRL CYCLE? flND ' C - FOR THE COGNITIUE" 
5Jfl PRINT 'mjYCLE. " 

PpTriT " THE DRY WHEN EACH RHYTHM OR CYCLE CHRNGES SIGN? CROSSES .;'ERO" 
-;0 PRINT "REPRESENTED BY 'I'? IS fl CRITICfiL DAY FOR YOU. WHEN RLL THREE" 
40 PRINT "CYCLES CROSS ZERO ON THE SfiME DRY REGURRDLESS OF THE DIRECTION" 
SRPi ppTNT "IT WOULD BE fl GOOD IDEA TO STAY IN BED. FOR YOUR CHHNCES OF" 
=if,0 PRINT "HflUING RN RCCIDENT IS '*"* 9 '^■^- TIMES THAT OF fl NORMAL NON-" 

PRINT "CRITICAL DAY. ON ALL CRITICAL DAYS YOU ARE HIGHLY ACCIDENT PRONE" 
>M PRINT "AND SHOHLD AUOID DANGEROUS CIRCUMSTANCES. THESE DAYS ONLY UCCUR" 
r=:;9Pi PPiHT "2kP: OF THE TIME? OR ONE DAY OUT OF EUERY FIUE. A STUDY WAS MADE" 
f,rH(4 PPT NT "ON 1000 RANDOM ACCIDENTS AND DEATHS ? THIS STUDY UNcOUERED THAT" 
A 10 PRINT "ALMOST 60© OF THESE ACCIDENTS OCCURED ON fl CRITICAL DAY FOR THE" 
f.?Q PRINT "PERSON INUOLUED. THIS IS ALMOST b@Z ! THREE TIMES THAT OF fl" 
f:ofi ppiHT "NORMAL DAY. OH DAYS WHERE TWO CYCLES CROSS ZERO YOU ARE ONLY 6" 
640 PRINT "TIMES ACCIDENT PRONE HS NORMAL. " 
650 DIM M5Ci£) 
660 M$( l)="JflN. " 

680 M$(3j="nAR. " 
£.90 ri$f4)="APR." 
700 ■MsC5}="MflY " 
710 Ms f 6)=" JUNE" 

730 Ms!:8J="flUG. " 
740 M5(9)="SEP." 

750 M5 (10) ="UCT. " 



fc.y 



Til J ="NuU. 



780 IF S501 THEN 900 

'7Qt? 



PPTNT " THE DATES LISTED ARE FOR MIDNIGHT? THE BEGINNING OF" 
800 PRINT "THE DRY PRINTED. IF YOU WOULD LIKE THE CHART PLOTTED FOR" 
O10 ppiMT "YOUR ACTUAL BIRTH TIME ENTER THE DAY IN DECIMAL FORM." 
H?0 PRINT "FOR E>::AMPLEs IF YOU WERE BORN 65 00 P.M. ON NOUEMEER £8? 1948" 
H;-i0 PR TNT "YOM WOULD EINTER YOUR BIRTH DATE AS: 11 ? £8. 75? 1948. NOW EACH" 
c;40 PRINT "DATE PLOTTED REPRESENTS THE CYCLES ASPECT WITH RESPECT TO YOUR" 
850 PRINT "FVACT BIRTH. AND FROM THE EXAMPLE EACH DATE WOULD BE FOR" 
860 PRINT "MIDNIGHT ON THE DAY LISTED. IF YOU WOULD LIKE IT FOR ANOTHER" 
070 PRIHT "TIME OF DAY ? SR=Y NOON - ENTER THE STARTING DRY IN DECIMAL " 
080 PRINT "FORM. EX: £? 17.75? 1976 WOULD LIST DATA AS OF 6:80 P.M. AND" 
ggg PRTNJ '^STARTING ON FEBRUARY 17? 1976 AT 6:00? INCREMENTED £4 HRS. DAILY 
900 PRINT 
910 D$C1)="SUN. " 
980 Ii¥(81="M0N. " 
930 Ds(33="TUE. " 
940 D$C4)="WED. " 
950 DSf5j="THUR" 
960 D:J^C6J="FRI." 
970 D$f7)="SAT. " 
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990 PRINT "NOW THEN? ENTER YOUR BIRTH DATE IN MONTH? DflY RND YERR" 
1000 PRINT "flS CEX= U5P83I948) HEIREs"; 
1010' INPUT MjDsYI 
i0£0 GOSUB 1830 
1030 J4=J£ 

1050 PRINT 

10fci PRINT " YOU WERE BORN ON H "DS^CWD 

1070 PRINT "HOW HBOUT THAT! ,. ,..." 

1 0t=0 PRINT 

1090 PRINT 

1100 PRINT "NOW TYPE IN THE MONTH DAY RND YEAR flS AEOUE" 

1110 PRINT "FOR THE STARTING BATE OF YOUR BIO-CYCLE PLOT:"? 

11£0 INPUT M?D?Y1 

1130 GOSUB 1830 

1 1 60 PR I NT 

1170 PRINT "HOW MANY DAYS DO YOU WANT YOUR CHART TO COUER:"? 

1180 INPUT .J7 

1 1 90 J6=.i7+ J5 

1800 PRINT 

1810 PRINT "IF YOU WOULD LIKE TO PLOT YOUR BIO-CYCLE TYPE PLOT" 

1880 PRINT "IF YOU ONLY WANT A LIST OF YOUR CRITICAL DAYS TYPE LISTS"? 

1830 INPUT Z$ 

1840 IF Z*="L" GOTO 1310 

1850 IF Z*="LIST" THEN 1310 

I860 IF Z5="P" THEN 1308 

1870 IF ZS="PL0T" THEN 1300 

1880 PRINT "ILLEGAL INPUT PLEASE RETYPE." 

18y0 GOTU 1800 

1300 GOTO 1790 

1310 PRINT 

1380 PRINT 

1330 PRINT 

1340 PRINT 

1350 PRINT " "?" THIS IS fl LIST OF YOUR CRITICAL DAYS FOR THE PERIOD' 

1360 PRINT " "5" BEGINNING "M^CM)?" "D?"? "5Y1 

1370 PRINT 

1330 PRINT " DAY"?" DATE " r- " CYCLE "?" !0=CRITIChL DAY) 

J 390 PRINT 

1400 FOR X=J5 TO (J5+J7) 

1480 GOSUB I960 

1440 p=:(|j9.,:'03i -ip-iTf f n9_.-P33 4.r:9) 
1 450 P= I NT ( £3^P+C9 ) 
1460 IF P<19 THEN 1488 

1480 E=i:n9x-881-INTf i:D9-^-88) +C9) 
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1 4 yfi 

1 500 

1510 

1 5£0 
1539 
1540 
1 550 
1 560 
1 570 
1 580 
1599 

1 600 

1610 

16£0 
1 630 
1 640 
1 1.50 
1 660 
1670 
1 6S0 
1 690 
1 790 
1710 
17£0 
1 730 
1749 
1759 
1760 
1779 
1780 
1 799 
1 £'90 
1810 
1880 
•1830 
1840 
1 ;D50 
1 £'.60 
1870 
1 889 
1 '3 '90 

1 900 

1910 
1 '?£0 
1 '330 
1 '?49 
1 950 
1 960 
1 970 
1 980 



"DIJ'S ";Y£5" PHYSICRL "j"0" 

"Dir-j 



";y£i»" emotionrl's "0" 



"1115% 



";Y£j" C:OGMITIUE"j"0'' 



E=ir-iTf£S^E+C9:i 

IF E<19 THEN 15£0 

£=£,S-E 

8= ( n9.--331 -INT i: i:ri9--'333 -h::9) 

C=INTl33SC+C91 

IF C<19 THEN 1560 

REM 

IF P=0 THEN 1660 

IF F-11 THEN 1660 

REM 

IF E=0 THEN 1690 

IF E=14 THEN 16'30 

REN 

IF C=0 THEN 17£0 

IF C=16 THEN i7£0 

GOTO 174a 

PRINT ri$i;w:ii.M$fMi) ;■■ 

F6=F6+1 
GOTO 1590 

PRINT i&im ?m$i:mi) ?" 

F6=F6+1 
GOTO 1 6£0 

PRINT rif-i;N:!?M$fMi:i5" 

IF F6<£ THEN 1769 

PRINT ■' "j-CnREFUL TODfiY "F6" CYCLES CROSS ZERO :«5««»i" 

F6=0 
NEXT K 

GOTO 3100 
GOTO ££00 

REM 

REM 

REM THI8 IS THE JULIRN DHTE SUB. CONUERSION 

r:9=.L30i 

N9= f - 1 ) ^ I NT i: i: i: l 4-M ) -■ l £ ) +C9 ) 

J 1 =Ii-£447095+ 1 NT ( i: 1 46 1 "« C Y 1 +4800+M9 ) /4 ) +C9 ) 

J£= J 1 + 1 NT ( ( 367* ( N-£- 1 £»«M9 1 y 1 £ ) +C9 ) 

J 1 = J£- 1 NT ( ( 3*- f Y 1 +490ei+N9 ) .-'4001 3 +C9 ) 

J£=J1 

W= J£-7*; I NT ( ( J 1 ■■■7 ) +C9 ) + 1 

H=INT(W+C93 

RETURN 

REM 

REM 

REM THIS IS THE CflLENDfiR SUE. CONUERSION 

.J3=INT(J£+C9) 

D8=.J£-J3 
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£8y0 L=J£+£i4835yy 

oyiy N=TMTf ( 4*L--' 146097 3 +Cyj 

£020 L=L-IHT i. i i 146097«M+3) ^-41 +C9) 



£030 'i-"£=INT C (4ay0*^iL+l 



£070 
£yyy 



■ i 4fc- 1 £10 1 3 +C9 3 



L=L- 1 NT ( 1 46 1 '^- i T e---4 ) +C9 ) +3 1 
rii = INT C80*CL.^''£447)+C9) 
D 1 =L- 1 NT C ( £447^M 1 /80 J +C9 ) 
IF M1>y THEN £090 

Iil=Iil~l 

L=IHT( (Pli.-^il)+C93 



£ily i.il=iJl-f-fD8.^ly) 

£1£0 Ml=l1i+£-l£»:L 

£ 1 30 Y£= 1 00^ ( N-49 3 +Y^+i 

£ i 40 !■!= J£--7« I NT ( C J£^-7 3 +C9 3 + 1 



ZfT-i i.i— TW 






INTIW+C93 

RETURN 
REM 



!„nE-.-C..s=l-= 



REM TH 



THE PLOTTING SUE, 



r=. i6 






£:310 



LET G=iFl-Ei3.'"40 

LE i ii 1 =Li---'"£ 

PRINT 
PRINT 






u 4-jy 






PRINT 

p.p:=j{--iT " " 

PRINT 

PRINT " DflV 
GOSUE 30£0 
GOSUE 3080 

PRINT 
LET :^=H-J 

REM 

LET Li=0 

LET X=K+-J 

J£=K 

GOSUE I960 

141 =U 

IF K>1 THEN £970 



THIS IS fi s*: EIO-CYCLE 5S»^ RHYTHM CHRRT " 

J THE (653 " DRTE " 
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^ 1 i*^ 






:''D":7c3 

:fc.£0 

:'630 

•'650 

'■'f.f.Q 



PRINT D^iWi) 5" "J 
Ti9=£sc>:--.j4is;(3, 14159£7) 

H=SINCp9--£33 

E=SIH CrJ'9---"'283 

C=SIN [Ii9--""33) 

LET Y=E1--G 

PRINT" "? 

IF (Y+GXl THEM £590 

PRINT " ''iMsiMlir' "jDI?": 

GOTO £4£0 

Y=zV+Q 

IF T>F1THEN £420 

IF RBSCR-YXGITHEH £730 

IF HK3THEN £550 

IF hESCE--t3<G1THEN 2779 

IF fl1<3THEN 2550 

IF BBS fC-YXGl THEN £810 

IF fli<4THEM 2550 

IF HESiD-YXGlTHEN 285© 



A-\ 



:'680 IF flKSTHEN 2550 



:'6yy 






-iMM 



540 



= 3<GiTHEN £890 

:N £550 
IF RES CF-YXGl THEN 2930 
GOTO 2550 
PRINT "P"l 
LET Ll=Li+l 
IF L1=H1THEN £420 
GOTO £560 
PRINT "E"l 
LET Li=Ll+l 
IF L1=H1THEN 2420 
GOTO £560 
PRINT "C"; 
LET Li=Ll+l 
IF Li=HiTHEN 2420 
GOTO £560 
PRINT "-"? 
LET L1=L1+1 
IF Ll=fliTHEM 2420 
GOTU 2560 

ppTfsT "I"? 



A 



cyaa 


LET Ll=LH-l 




£910 


IF Ll=HiTHEN 


2420 


£920 


GOTO 2560 




?930 


PRINT "+'■■; 




£940 


LET L1=L1+1 




E',950 


IF L1=H1THEN 


2420 


?'360 


GO i 2j60 




E!970 


REM 




n:9S0 


GOSUE 3080 




£'990 


GOSUi! 302ti 
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:ib14y 
:!050 
:10fc0 
J 070 
;l08t1 
:;090 
;il00 
5110 
i!i£0 

5130 

5150 
5 1 60 



PRINT 

GOTO 3100 

PRINT 

PRINT 

PR I NT E i 5 THE ( 35 ) ? " CR I T I CRL " 5 TAB ( 43 1 J " + " ; F 1 

PRINT THE f £5:1 5" PERIOD" 

PRINT 

RETURN 

pC'TI'-JT'" 113 n B m B m m i 

RETURN 

PR I NT 

IZ'O T KIT 

PRINT " - 

i i n U 1 .-_-r- 

PRINT 



WOULD YOU LIKE TO DO HNOTHER '^- EIO-CYCLE * (YES OR NO)"? 



;! 1 cJH 

.' U. t-. w 



IF 

GOTO 3310 

PRINT 

PRINT 
PRINT 
PRINT 
END 



THEN 1080 



*^ :..!LL..CUME TO *^ hIu-CVCLC * - IF YOU WOULD LIKE 
INFORMflTION TYPE Fi - 1? ELSE ~Z7d 



riOS..! TNEM? ENFER YOUF:! BIRTH DRTE IN MONTH? DRY RriD YERR 

F! S 1 EM . 1 1 3 33 ? 1 943 ) HERE : 7:5 ? £8 ? 1 9?;-3 

YUFI HERE EORH Or^ H FRI. 
HOW HBOUT THRT! , . .... 



r-iOFi t'vpe: in tfie month dry and year as rboue 

FOR THE STARTING DRTE OF YOUR EIO-CYCLE PLOT: --l, 33, 1976 



1014 HflN"T' IJRYS DO YOU FJRNT YOUR CHRRT TO C0UF:R5 ?£5 
IF YOU WOULD LIKE TO PLOT 'iTiUR BIO-CYCLE TYPE PLOT 



J r 



fOU Or-ILY WANT H LIST OF YOUR CRITICAL DAYS TYPE LISTS I^P 
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^^ 



i.iHY 



IS ft ;*;s EIO-CYCLE '^■'^- RHYTHM CHAR" 



DRTF 



jRITICRL 
PERIOD 



h'iCU. 

Tl lUR 


_. 




FRI. 


- 




SFlT. 


._. 




sun. 


..,. 




MOH. 


„, 




tue:. 


--- 




he:d. 


- 




THUR- 


__ 




FRI. 


— 




srt. 


_. 




surL 


- 


™ 


Mori. 


— C... 




TUE. 


r- 




MED. 


- r p 




THUR 


"E F' 




FRI. 


EF' 




:5f-l 1 . 


prr 




SUM, 


P E 




tiori. 


- i-' E 


C: 


TUE. 


P L 




WED. 


c 


F'E 


THUR 


- c 




FRI. 


-C 




SflT. 


C- 




SUM. 


c 





CF- 



rz-r 



p 

T 

T 



i: 



e:+ 


JRti. 


E 


JRN. 


E-^.- 


JRIL 


P + 


FEE. 


P 


FEE. 


,'■■■ r-. 

'™- r 


FEE. 


p+ 


FEE. 


f; 


FEE. 


r- 


FFIE. 


C.H- 


FEB. 


+ 


FFIE. 


T* 


FEE. 


4- 


FEE. 


4- 


FEE. 


+- 


F'EE . 


+ 


FEB. 


+• 


FEE. 


4. 


fC-V, . 



FEE. 



Fl- 



r i-' 



4- 


FEE. 


4- 


FEE. 


f- 


FEl; . 


•f 


FEE. 


+ 


FEE. 



"'y ? 


lyfb 


i:9 ? 


1976 


30 5 


1976 


31 ! 


1976 


1 ? 


1976 


£ f 


1976 


,_ 


„ , - 




i 9 !-" b 


■i 


i Q'7ii;, 


•-T ! 


.' _• I ■_.' 


^I ; 


1976 




. , - 


vf,' ! 


1 y ■•■ t- 


i" 


1976 




i QT'ji:, 


v..' 


J. -,- 1 '-..' 




J -» _-f .- 


'? 


19 ft. 


10 


1 9 i"' fc' 


11 


1 976 


1 ■-' 


1 976 


i O 


i 1 ■^7r-, 


X "—' 


' i. -■ s ',-.' 




1 976 


15 


'. 1976 


16 


< 1 976 


1 7 


, 1976 










1 ;-; 


, 1_ '-i ,-■ i^, 






19 


^ 1976 


Ry 


. 1976 


O-i 


i QT*}::, 


(—. X 


? i. _• i ■-* 


- — 


- i"'!*"::''.-" 


cc 


5 i 9 f- o 



CRITICRL 
PERIOD 



40ULD YOU LIKE TO DO RMOTHER '# BIO-CYCLE 5fi (YES OR NO)^tl 
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CANNONS : 

DESCRIPTION 
This is a war game simulation in which you learn to shoot a big gun at a 

stationary target. After you have destroyed your target the computer grades 

your shooting by the number of shots required to do the job. A comment is 

then rendered about your shooting ability. A good gunner with a slide rule 

can hit the target in two shots every time. 



INSTRUCTIONS 

The program will prompt for all necessary information and give instructions. 

Load the program into memory and type LIST or RUN. 



LIMITAIIMS 

This simulation game requires less then 3K Bytes of memory for both storage 

and execution. A sample run is provided following the source code listing. 
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iJfiiiMOri 



lidW REM THIS IS ChHNON 

110 KEM THIS IS Fi LITTLE ARTILLERY GRME 

1£0 PRINT "FIRING fi FIELD ARTILLERY WEAPON" 

130 PRINT "H HIT WITHIN 108 YDS OF TGT WILL WIN" 

140 PRINT "MAX RANGE IS 46508 YDS" 

150 PRINT "THE ELEURTION IS IN DEGREES AND TENTHS OF DEGREES' 

liS0 REM T=n I STANCE TO TGT 

170 RE:M I =D I STANCE OF SHOT 

180 RE:M E=D I STANCE OUER (NEG^ ? OR UNDER CPOS) TGT 

190 LET W£:=0 

S00 LET T=43000--30000*^RNDL-i ) 

£10 LET S=0 

££0 PRINT 

£30 IF W£=0 GOTO 640 

£40 GOTO 680 

£50 PRINT"MIN ELEUATION IS 1 DEG„ " 

£;60 GOTU 690 

£70 PRINT "MAK ELEUATION IS 89 DEG" 

£80 GO I 690 

£90 IF E>45 GOTO 3£0 

300 PRINT"OUER TGT BY " 5 RES CE) ? "YDS- LOWER ELEUATION" 

310 GOTO 690 

3£0 PRINT "OUER TGT BY " ? AES CE) ? "YDS-RAISE ELEUATION" 

330 GOTU 690 

340 IF E>45 GOTO 370 

350 PRINT"SHORT TGT BY " ? AES fE) ? "YDS-RRISE ELEURTION" 

360 GOTO 69ti 

370 PRINT"SHORT OF TGT BY" ;fiESCEj ? "YDS-LOWER ELEURTION" 

380 GOTO 690 

390 GOTO 400 

400 PRINT" i*s;^:ffiSTARGET DESTROYEDS^ssH^xf " 5 S? "ROUNDS EXPENDED" 

410 IF S>£ GO TO 440 

4£0 PRINT " THAT'S DAMN GOOD SHOOTING? SON" 

430 GO TO 560 

■^140 IF S>5 GO TO 470 

450 PRINT " UERY GOOD SHOOTING. WE NEED MORE LIKE YOU" 

460 GOTO 56U 

470 IF S>9 GO TO 508 

480 PRINT " ABOUT AUERAGE? TRY TO IMPROUE" 

490 GO TO 560 
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500 IF S>14 GO TO 540 

510 PRINT " I GUESS YOU KNOW YOUR fi LOUSY SHOT. YOU SHOULD " 

520 PRINT " BE INSIDE WITH THE COOK FOR ALL OUR SflKES" 

530 GO TO 560 

540 IF S>S1 GO TO 8£0 

550 PRINT " OUR FhTHER WHO ART IN HEfiUEN H„ . . . . „ m " " 

560 PRINT 

570 PRINT 

580 PRINT 

590 PRINT "DO YOU WANT TO PLAY ANOTHER GAME" 

600 INPUT R$ 

610 IF R:£="Y" GO TO 646 

6£ti IF" R$="YES" GO TO 640 

630 GOTO 860 

640 PR I NT "THE ENENY HAS BEEN SIGHTED? LETS BLOW THEM UP!!!!" 

6i.0 LEi W£=l 

660 PRINT 

67iZi GOTO ££10 

680 PRINT" DISTANCE TO TGT IS" ? INT (Tj 5 "YDS" 

690 PRINT 

700 PRINT "ELEUATIONs "? 

710 INPUT E 

7£0 IF E=90 GOTO 8£0 

730 IF B<1 THEN £50 

740 LET S=S4-1 

750 LET B£=£«E.--57.3 

760 LET I=46500sc;INi:B£1 

770 LET ><=T--I 

780 LET E=INTi;X) 

790 IF AESiEl<100 THEN 390 

800 IF E>100 THEN 340 

810 IF E<-i00 THEN £90 

8£0 PRINT 

830 PRINT " #### BAtiG - YOU BLEW YOURSELF UP ####" 

840 PRINT 

850 GOTO 560 

860 PRINT 

870 PRINT 

880 END 
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F:UM CFlMMOr-IS 



FIRIMG Fi FIELD fiRTILLERY WEAPON 

F! HIT WITHIN 10iZi YDS OF TGT WILL WIN 

riFl>^ RANGE IS 46500 YDS 

THE ELEUATION IS IN DEGREES AND TENTHS OF DEGREES 

THE ENEMY HAS BEEN SIGHTED? LETS BLOW THEM UP! ! ! ! 



DISTANCE TO TGT IS 



--'/1.Er< 



ELEUATI0Ns?46 

OUER TGT BY 21883 YDS-RAISE ELEUATION 

ELEUATIONs-?£0 

OUER TGT BY 5899 YDS-LOWER ELEUATION 

eleuhti0ns715 

short tgt by 1340 yds-raise eleuation 

ele:uations?16 

rSSss^swTHRGET DESTROYED*-:*^*^*^*: 4 ROLJNDS EIKPENDED 
UFRY GOOD SHOOTING. WE NEED MORE LIKE YOU 



DO YOU WANT TO PLAY RNOlHER GAME 

?N0 
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CHECKERS? 

DESCRIPTION 

In this game you and the computer play a game of regulation Checkers. The 
computer is Black and you are White; you move first. The game has a time 
limit so don't take too long in making your moves. The game is programmed 
to recognize one, two, three, or even four jumps, whether made by you or 
your opponent. The computer won't move into a jump if it has any other 
choice and it advances whenever possible toward your king row. The games 
highest priority is to jump any non-protected opposing piece, your men. 
This game is \/ery aggressive and allows no quarter. 
INSTRUCTIONS 

List the program for instructions. The game offers instructions while being 
run. The program prompts are sufficient for even the novice player. 



UMITATIONS 

There is a Restore statement in line 10780. The program length is 22K Bytes 
and execution requires 48K Bytes in most systems. A partial game run is pre- 
sented along with the game board patterns after the source code listing. 



ra 



m 
m 




m 






~m 



W, 






m 



^ 



m 



?^ 



m 



m 



m 






i. 



m. 



m 



.1 
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ijHECK 




iuy RFii rHis is ci-ieckers 

1 1 5 REM PROGRHMMEIi BY ROGER BROWN 

130 REM SCIEHTIEIC RESEARCH INSTRUflENTS CO. 



■-v-i-;-i.;:..:L-i:.il_.j;i:2i!-^ 

\ I \ I .i ' '. I 



•j :-, s."! Lj.'l^rj'j'i i^:fv:ih^i^f^^*4-':*'r:^':^^^^i'KS^BC^5^i'Ki^^f^i^^^ 



1 90 

C'^ *:'*' O 
C' ■"> |7-4 



£65 
£80 
£95 
310 

"■■.:■ c cr 

340 

.-, jircr 
■-'' ■■-' ■■-• 

37Ci 



4yEi 
415 






THE INSTRUCTIONS FOR THE CHECKER GfiME. 



PRINT '^THIS IS Fi CHECKER GAME. IT IS PLhVED BETWEEN YOU" 

DIM H5:ib4) !.E$f3£) jC5:C3£1 )E$(3£) jH(64) ?Lf645 3 0164) ?P (64) 

DIM F(643 J S(641 ? T(64) jUi64) ?U(641 sGCSPJ ? RC643 5CC64J 

PRINT "AND THE COMPUTER = THE RULES ARE SIMPLE - ALL PIECES" 

PRINT " EXCEPT KINGS CAN ONLY MuUE FORWARD? DIAGONALLY? AUOIDING" 

PRINT "ALL DARK C X>: )■ SQUARES? IF THE SPACE IS UNOCCUPIED." 

PRINT 

PRINT "IF THE SPACE IS OCCUPIED BY ONE OF YOUR MEN- YOU CAN NOT" 

PRINT "PROCEED FURTHER." 

PRINT 

PRINT "IF THE SPACE IS OCCUPIED BY YOUR OPPONENT-YOU MUST JUMP" 

PRINT "IF ROSS I ABLE." 

PRINT 

PRINT "IF YOUR PIECE HAS BEEN KINGED-THE RULES ARE THE SAME " 

PRINT "EKCEPT IT MAY ALSO MOUE BACKWARDS? AUOIDING ALL OF" 



460 



cr-j jiir 



:: 


£y 


c: 


-;i=; 


:.... 




'z 


50 


i- 


c.:^. 






s 


80 


■= 


s=; 


fc 


10 


fc 




fc 


40 


fc 


ss 




fc 


70 


fc 


85 


-' 


00 



PRINT 

PRINT "YOUR MOUES ARE LIMITED TO N E ^ SPACE ^ ONLy 

PRINT "UNLESS YOU ARE JUMPING PIECES." 

PRINT 

PRINT "TO MOUE-" 

PRINT 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT 

PRINT 

PRINT " THE FOLLOWING IDENTIFICATIONS WILL BE USED ON ALL' 

PRINT " OF THE GAME BOARD PRINT OUTS." 

PRINT 

PRINT " YP -MEANS YOUR PAWN. " 

PRINT " YK -MEANS YOUR KING." 



1- ENTER THE SQUARE # THE PIECE IS ON THAT YOU PLAN TO MOUE" 

S-THEH ENTER THE SQUARE # YOU ARE MO'JING TOO" 

3-THEN ENTER THE NUMBER OF THE COMPUTER'S NEIN YOU ARE " 

GOING TO JUMP IN THE PROCESS." 
4-HND FINALLY TYPE (YES OR NOJ IF YOU WANT A PRINT" 

OUT OF THE BOARD AFTER THE MOUE OR NOT. " 



161 



715 PRINT 

730 PRINT " CP -MEflHS THE COMPUTERS PRWN. " 

745 PRINT ■■ CK -NEflHS THE COMPUTERS KING. " 

7bti PF'INT 

775 PRINT 

790 PRINT " HERE IS fl SRMPLE MOUE-" 

805 PRINT 

sew PRINT "HHFfT IS YOUR MOUE?" 

CJOJ hp:. in! :■ CO 3 i:y5W? 1 t,o 

850 PRINT 

865 PRINT "YOUR MuUES CRN BE MRDE ON ANY OE THE S INOCCI !p T ED " 
880 PRINT "SQUARES NUMBERED PROM 1 TO 3S= " 

895 PRINT 

910 PRINT 

9£5 PRINT " DON'T WASTE TOO MUCH TIME AS THE GAME HAS fl TIME LIMIT." 

940 PRINT 

955 PRINT 

970 PRINT " YOU ARE WHITE RND MOUE EIRST. " 

985 PRINT " GOOD LUCK!..." 

1000 PRINT 

1015 PRINT 

1030 PRINT 

1045 GOTO 10795 

1060 REM THIS SUB IS WHERE THE COMP. MAKES ITS MOUE 

1075 IE J=0 GOTO 1315 

1090 PRINT 

1105 PRINT "TYPE IN THE SQUARE # OF EACH PIECE YOU " 

1120 PRINT "JUMPED ? flS YOU ARf: flSKED !" 

1135 FOR Jl=l TO J 

1150 INPUT J8 

1165 IF J8>3S GOTO 1090 

1130 Bi=i 

1195 N7=J3 

1810 GOSUB 13345 

1££5 IF H$(N4j="CP" GOTO 1370 

1240 IF HS(N4i="CK" GOTO 1270 

1 £55 GOTO 1 09tJ 

1£70 M8=N4 

1285 GOSUB 11740 

1300 NEIK! Jl 

1315 E1=D7=0" 

1330 FOR 1=1 TO 8 



IF fl$iI1="YP" GOTO 1390 



1345 

1360 ne:^^t I 

1375 GOTO 1450 

1390 H$!:ij="YK" 

1405 PRINT 

1420 PRINT " *^»: YOU GOT R KING «» " 

1435 PRINT 

1450 F"OR 1 = 1 TO 64 
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1465 


IF fl$i:i)="CP" 


GOTO 1600 


1480 


IF fi$i:i)="C:K" 


GOTO 1600 


1495 


NEXT I 




1510 


PRINT 




15£5 


PRINT " '^■'■^- THE 


GUME IS OUER. Y U WIN ! . , . 


1540 


PRINT " 


BUT I'LL EEfiT YOU NEXT TIME. 


1555 


PRINT 




1 570 


I!4=li4+1 




1585 


nOTO 14965 




1 600 


PEN THIS IS WHERE THE COMPUILRS MOUINQ STfiRTS 


1615 


FOR 1=1 TO 64 




1630 


LCI) =0 ( I i =P ( I ) 


=F i 1 3 =S ( 1 3 =T ( 1 3 =U ( 1 3 =U ( 1 3 =R f 1 3 =C 1: 


1 645 


NEXT I 




1660 


E9=B6=0 




1675 


l!7=l!7+l 




1 690 


FOR 1=1 TO 64 




1705 


IF fl$(I)="CK" 


GOTO 1825 


1720 


IF fl$fi:i="CP" 


GOTO 1855 


1 735 


IF fi$ri)="YK" 


GOTO 1 885 


1750 


IF fl$i;n="YP" 


GOTO 1915 


1 765 


IF fl$(n="xx" 


GOTO 1795 


1780 


H ( I ) =5 




1795 


NEXT I 




IS 10 


GOTO 1945 




1825 


Hi 11=1 




1 840 


GOTO 1795 




1855 


H i: I :i =£ 




1870 


GOTO 1795 




1885 


H i 1 1 =4 




1900 


GOTO 1795 




1915 


H i: I ) =3 




1 930 


GOTO 1795 




1945 


REM Hi:iJ IS THE PRIORITY OF THE SQUARE 


I960 


Hi:i)=Hi;2:i 




1975 


Hi:2i=Hi:4;i 




1 990 


Hr3)=Hi:6i 




£005 


H(41=Hi:S) 




£020 


Hi:5;i=H(93 




£035 


Hi:6:i=H!:ii) 




£050 


Hi:7)=Hi:i3:i 




£065 


Hi:8)=Hi:i5:i 




£080 


Hi:93=H!:i81 




£095 


Hi 10) =H (£03 




£ 1 10 


HC113=H!:223 




£1£5 


Hi:i23=Hi:243 




£140 


Hfl33=H!253 




£155 


Hi: 143 =H 1:273 




£170 


H f 153 =H 1293 




£185 


Hi:i63=Hi:313 




£200 


H! 173 =H 1:343 




££15 


HC133=H(363 





1: 1 3 =0 
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££60 

.-, .-, -rtc:" 

£290 
£305 
£3£0 
£335 
£350 
£365 
£380 
£395 
i_. "T J. y 
£4 £5 
£440 
£455 
£470 

iI.4o-.-i 

£500 



'V: 



£545 
£560 



£5yiii 

£605 

£635 
£650 

£665 
£630 

£695 
£710 

I" {' C _' 

£740 

£755 
£770 



c. 


800 


c. 


815 


c. 


830 


c 


845 


c 


860 


l1 


•Z' 1 •_' 


C- 


390 


c 


905 


c 


9£0 


C- 


935 


c 


950 


£ 


965 


c 


980 



0=: "I — 



Hi 19) =H (38) 
Hf£0)=H(40) 
Hi:£i)=Hi:41) 
H(££)=Hi43) 
Hi£3)=H!:45) 
Hi£4)=Hi:47) 
150) 
C5£) 
(54) 
(56) 

r cr-7 -I 

I. J I- ) 
(59) 
(61) 
(63) 

TO ■ 



6 ) 
7) 
'3 i '• 
9)' 

0) ■ 

1)^ 






H( 

H(£ 

H(£ 

H(£ 

H(£ 

H(3 

H(3 

HC3 

FOR 

IF" H(I)=4 GOTO £560 

IF H(I)=3 GOTO £6£0 

IF H(I)=£ GOTO £680 

IF H(I)=1 GOTO £740 

IF H(I)=5 GOTO £800 

NEKT I 

p(n=i 

REM THIS IS SQ. # 'S WITH VK 
S(n = I 



5 GOTO 



;-:n 



P(I+3£)=I 

REM THIS IS SQ.tt'S WITH YP 

S(I)=I 

GOTO £530 

0(I)=I 

REM THIS IS SQ. #•' S WITH rp 

T(I)=I 

GOTO £530 

0(I+3£)=I 

REM THIS IS SQ. #'S WITH CK 

T(I)=I 

GOTO £530 

L(I)=I 

REM THESE SQ. #'S ARE EMPTY 

GOTO £530 

REM HERE THE COMP„ IS CK. FOR fiD. 

FOR 1=1 TO 3£ 

I9=-5 

FOR 11=19 TO 18 

IF (I + IIXI GOTO £980 

IF (I+I1)>3£ GOTO £980 

IF T(I)=S(I+I1)-I1 GOTO 3040 

IF T(Ii=L(I+Il)-li GOTO 3£95 

tw:KT U 



I. SQ. AND MOUE PRIORITY 
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3010 

3025 
3040 

3055 
3070 

3115 



. "^.J 



IF 19=3 GuTO 33S5 

19=3 

GO ! £Sy0 

IF I>a + Iij GOTO 3070 

GOTO 3100 

IP T(I)=0i:i-f-3£J GOTO 3100 

I F S CI ■+- 1 1 ) =P ( I + 11 +3S ) GOTO £980 

LCI+3£J=1 

ON E6 GOTO 31455 3175?3£055 3£35?3£65?3145?3175?3£05?32' 

TCI-i-3£) = (I + Il) 

GOTO £980 

R(I j = (l + li:i 

GOTO £980 

R( l-^3£j = f I + Il ) 

GOTO £980 

CC I) = U + Ii) 

GOTO £980 

Ci l+3£j=il+l 1) 

GOTO £980 

Sil+3£)=1 

GOTO £yyy 



""I'! -ir-t-i. 15 



3i45j31" 









FOR Tl=I£ TO 13 

14=11 

IF (I+-I4X1 GOTO 3445 

IF (14-14) >3£ GOTO 3445 

IP T (I J =S C I •+■ T 4 J - 1 4 GOTO 3475 

IP TCI J=L (I+I4) -14 GOTO 3565 

t.jpV'X T 1 

■ =C_l--l i i i. 

'JU i U j595 

IF IXI + I4) GOTO 3505 

GOTO 35£0 

IF SiI*-I4)=PCI + I4+3£) GOTO 3445 

U C I ) =£ 

Ufl!=(I+I4) 



UU i U J44D 

IF 13=9 GOTO 3655 






■! "? 1 !^i 



i:-;=y 
GOTO 3355 

FOR I1=I£ TO 13 

15=11 

IF (I + I5X1 GOTO 3775 

IF (1+15) >3£ GOTO 3775 

IP J (I ) =s i; 1 4- 15 1 - 1 5 GOTO 3805 
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3 7 foti IF T ( I ) =L C I + 1 ?:= ) - 1 5 GOTO 3895 
::< i i •_! TiLr-. I i 1 

oT'yy UuTO 3y£5 

3S05 IF IXI + I5) GOTO 3S35 

3SS0 GOTO 3350 

3 335 IF 3(1 + 1 5 ) =P CI + 1 5+3£ ) GOTO 3775 

3350 Uri+3£)=3 

3 8 65 l.i C I +33 ) = f I + 1 5 ) 

3330 GOTO 3775 

3895 F(I+3£:1=3 

3910 GOTO 3775 

3935 IF 13=13 GOTO 3935 

3970 GOTO 3635 

4000 \-EKT I 

4015 REM THIS COMPLETES THE IMITIRL SERRCH FOR POSITIONS 

4030 REM L(I) IS THE FLRG FOR HN OPEN SQ. 

4045 REM or 1+33) IS THE FLAG FOR CK 

4060 REM Oil) IS THE FLRG FuR CP 

4075 REM PCI) IS THE FLRG FOR YK 

40'::«0 REM PC 1+32) IS THE FLAG FOR tP 

4105 REM TCI) IS THE FLAG FOR CK 

4130 REM SCI) IS THE FLAG FOR YX 

4135 REM >< IS EITHER fl P OR H K IN THE HEnUE„ 

4isy RLM LCI+3£)=Z IS THE FLAG FOR R CLOSE OPPONENT 

416o RLM 1 CI4-33) IS THE SQ. MARKER FOR PBOUE. 

4180 REM Z IS THE CLOSENESS IN SQUARES. IE? 1,£,3 

4195 REM SCI+3£)=Z IS THE FLAG FOR fl CLOSE EMPTY SO. 

4£i0 REM Hi I) REMEMBERS THE ENTIRE EORRD. 

4££5 KEM HCI-33) REMEMBERS THE ENTIRE CWHITE HRLF) OF THE BHARl! vv AND ALL 

4£40 KEM FOR ALL OF THE ABOUE 1=1 TO 3£ STEP 1 

4 £55 FOR 1=1 TO 3£ 

43V0 IF E9=0 GOTO 4380 

4300 IF 1=1 GOTO 4795 

4315 IF I=£ GOTO 4795 

4330 IF 1=3 GOTO 4795 

4345 IF 1=4 GOTO 4355 

436£i IF 1=5 GOTO 4908 

4375 IF 1=6 GOTO 4945 

4390 IF 1=7 GOTO 4945 

4405 IP 1=8 GOTO 4945 

44£0 IF 1=9 GOTO 5005 

4435 IF 1=10 GOTO 5085 

4450 IF 1=11 GOTO 5085 

4465 IF I=i£ GOTO 5865 

4480 IF 1=13 GOTO 4908 

4495 IF 1=14 GOTO 4945 

4510 IF 1=15 GOTO 4945 
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4Dc!^i 


IF 


1 = 16 


GOTO 


4945 


4540 


IF 


1 = 17 


GOTO 


5005 


4555 


IF 


i — i 


GOTO 


5005 


4570 


IF 


1 = 19 


GOTO 


5005 


4535 


IF 


I=£0 


GOTO 


5065 


4600 


IF 


I=£i 


GOTO 


490ti 


4615 


IF 


I =££ 


GOTO 


4945 


4630 


IF 


I =£3 


GOTO 


4945 


4645 


IF 




GOTO 


4945 


4660 


IF 


X -Z-^ 


GOTO 


5005 


4675 


T ; — 


i=£b 


GOTO 


5005 


4690 


IF 


I =£7 


GOTO 


5005 


4 705 


IF 


I =£8 


GOTO 


5065 


,4,720 


IF' 


I =£9 


GOTO 


5110 


4735 


IF 


1=30 


GOTO 


5155 


4750 


GOTO 5155 




4765 


IF 


k9=m 


GOTO 


60 £5 


4780 


GOTO 98: 






4795 


18= 


= iy=y 






4810 


T cr. 
i. „5- 


=4 






4 8 £5 


T ;■" • 


™Er 






■4840 


GO" 


ro 5& 


30 




4855 


16: 


= 1 8= I ' 


3=0 




4870 


15= 


=4 






4885 


GO' 


ro 5S 


30 




4900 


J, ■■— ' 


= 18=0 






4915 


16= 


= 19=4 






4930 


GO 


ro 5£^ 


Ii£i 




4945 


13= 


_cr 






4960 


16= 


i. _■' : 







■it-|05 



GOTU ^i£0y 



>3 I ir'=D 



.lUoS 


i ':?=y 


5050 


GOTO 5£00 


5065 


19=15=4 


5080 


16=19=0 


5095 


GOTO 5£00 


5110 


T5=ib=i8=£i 


51 £5 


19=4 


5 1 40 


GOTO 5£00 


5155 


1 5= 1 6=ti 


5170 


18=5 



5 i 85 

5 £00 

5 £45 



IF E3=6 GOTO 6670 

IF B9=£i GOTO 5£45 

GOTO 9115 

REM sssffis HDDITIOHRL FLfiGS 

REM UCI)=£ IS THE FLhG FOR flN OPPONENT £ SQ. RWflY 

REM UCIj IS THE SQ= MRRKER FOR THIS U C I) =£ FLAG 
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39t 



i " 



jHjKj ir 



55 Id 



5605 

5635 
5650 
5665 

5695 

J-.. -_, .— ,|— . 

-J i d.-J 

5740 
Sj 1^55 
5770 
5785 

5815 
5830 

5860 



5995 
6085 



IF 

IF 
IF 
IF 



REM Fil)=8 IS THE FLAG FOR HN EMPTY SPfiCE £ SQ. RWHt 

REM UCI+3£)=3 IS THE FLRG FOR AH OPPONENT 3 SPACES RWRY 

REM UCH-3£i IS THE MARKER FOR THE 0=3 FLRG 

REM Fa+3£]=3 IS THE FLAG FOR AN EMPTY SPACE 3 SPACES AWAY 

REM 

T C I +3£ J = ( I ~ 1 9 ) GOTO 5680 

RCI)=I~I9 GOTO 5680 

RiI+3£)=I-I9 GOTO 5680 

C ( I } = I " I 9 GOTO 5680 

CiI-^3£)=I-I9 GOTO 5680 

T(I+3£)=iI-I8} GOTO 5680 

R( 13=1-18 GOTO 5680 

R(I+3£)=I-I8 GOTO 5680 

C i I ) = I - 1 8 GOTO 5680 

C ( I +3£ ) = I - I 8 GOTO 5680 
IF TC I+3£} =( 1+163 GOTO 5860 
IP p f J ) = T + 1 6 GOTO 5860 
IF RCI4-3£J=I + I6 GOTO 5860 
IF CCI+3£J=I+I6 GOTO 5860 
IF C C 1 3 = I + 1 6 GOTO 5860 
IF TCI+3£j =( I+I53 GOTO 5860 
IF C (1 3=1 + 15 GOTO 5860 
IF Rill =1+15 GOTO 5860 
I F i I +3£ 3=1 + 15 GOTO 5860 
IF R(I+3£3=I+I5 GOTO 5860 
GOTO 4765 

IF Til +3£ 3 =P (. I +32- 1 9 3 GOTO 5845 
IF Ci lJ=PCI+3£-I93 GOTO 5845 

f?f lj=pfl+3£-I93 GOTO 5845 



ir 

IF 



ir 

IF 
IF 
IF 



CCI+3£3=Pa+3£~I93 GOTO 5845 
R f I +3£ 3 =P ( 1 4-3£- 1 9 3 GOTO 5845 
Ti I+3£3=P I I+3£-I83 GOTO 5845 
Rri3=PiI+3£-I83 GOTO 5845 
C(I3=PCI+3£-I83 GOTO 5845 
R(I+3£3=P(I+3£-I33 GOTO 5845 
C ( I +3£ 3 =P i I +3£- 1 8 3 GOTO 5845 



IF TCI 3=0(1 3 GOTO 5515 

IF B9=i GOTO 6085 

L(I+3£j=4 

GOTO 4765 

REM 

REM IF Li 3=4 AN OPPOSING PIECE IS NEIKT TO COMP, PIECE 

REM IF Li 3=3 AS AEOUE ONLY? CP CANT JUMP 

GOTO 60£5 

IF B4>1£ GOTO 9940 

GOTO 7615 
NEXl I 
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by4U 



fc.y7H 



b 1 yy 
61 15 
b 1 'jy 

b 1 45 
6160 

D J. ! _= 

bc!y^t 

,;;; •~t OE^ 
w O ^ f^ 

6 £80 
6 £95 
6310 

6370 
6400 



REM 

IF D7>1 GOTO 6145 

GOTO 6115 

I=C1+1 

GOTO 6160 

FOR 1=1 TO 3£ 

GOTO 6 1 60 

IF L(I+3£j=4 GOTO 6£5e 
IF Ij7>1 GOTO 6£05 

r-JC"*-.-'"r T 

GOTO 6£35 

IF Ii7<£ GOTO 6190 

GOTO 7465 

POR 14=1 TO 5 

OH 1 4 GOTO 6c:80 ? 63 1 ? 634ei ? 637£i s 64€i0 

IF 0300 GOTO 6445 

C3=R C I ) 

IF C3O0 GOTO 6445 

C3=C C I J 

IF C3< >0 GOTO 6445 

r:3=R ( I +3£ ) 

IF C3O0 GOTO 6445 

C3=C(I+3£) 



b-)-'4D 
6460 

b "H- f'T' 

6490 

6505 

6535 
6550 
6565 
6580 

b3^D 
6610 



ri=T 

IF C1>C3 GOTO 6865 

IF HBS(C4j=5 goto 6535 
IF flESiC4)=3 GOTO 6535 
GOTO 6895 
IF C4<0 GOTO 6580 



£=(C14-l:4+4) 

OTO 6595 
E=(Cl+C4-4) 



■■ i ^M rn K /r-.H 



I=C1 
nOTO 4300 



■■" r-sET T r~ 



bbo' 

6 ?y0 

6715 
6730 
6745 



6790 



IF L:i-iy=L:3 UUTU 6oy5 

IF C1-I9=C3 GOTO 6805 

IF Ci+I5=C3 GOTO 6805 

IF C1-^I6=C3 GOTO 6805 



yc:=H7 
NEXT 14 
GOTO 6££0 
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6805 IF hES(C4j<3 GOTO 6775 

68£0 J9=J9-r-i 

6850 GOTO 9835 

6865 IF H (CI 3=1 GOTO 6475 

6880 GOTO 6775 

i-"i895 1 f~ T ?4 GOTO 69Pi5 

6910 C£= C C 1 +C4+3 ) 

69S5 IF 1=1 GOTO 6775 

f,94B GOTO 6595 

6955 IF I>5 GOTO 7008 

6970 C£= ( C 1 +C4+5 J 

6985 GOTO 6595 

7-'000 IF I >7 GOTO 7060 

7015 IF C4<0 GOTO 6775 

7030 C£=iCl-+-C4+5) 

7045 GOTO 6595 

7060 IF I >8 GOTO 7090 

7075 GOTO 6775 

7090 IF I>1£ GOTO 7195 

71£0 IF C4<0 GOTO 7165 

7135 C£=(Cl-f-C44-33 

7 1 50 GOTO 6595 

7 1 65 C£= I C i +04+5 3 

7190 GOTO 6595 

7195 IF I>16 GOTO 7£55 

7810 IF 1=16 GOTO 6775 

7££5 IF C4<0 GOTO 7135 

7 £ 40 GOTO 7 1 65 

7£55 IF I>£0 GOTO 7300 

7370 IF 1=17 GOTO 6775 

7285 GOTO 71 £8 

7300 IF I>£4 GOTO 7345 

7315 IF I=£4 GOTO 6775 

7330 GOTO 7££5 

~-0,.ii=; TtT" T '--.OQ [".nTri ~'tdpp! 

":■' ~ici(A Tp" r'4 'vfi nn""^ n f-",^'?'^ 

7375 IF I =£5 GOTO 6775 

?' 390 C£= ( C 1 +04+5 3 

7405 GOTO 6595 

7430 IF I=3£ GOTO 6775 



,'-4yt:i il- LM+yc;.i=y UUTU ■•■■5£5 

75£5 REM RESERUED FOR CP DEFEMSIUE MOUE: 

7540 REM FROM YK IN BACK OF THE CP, 

7555 IF E9>0 GOTO 7585 
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7570 IF H<>: GiJTO 7848 
75S5 FOR I=3£ TO 1 STEP -1 
7600 IF TtI)=I GOTO 77£0 
7615 NE><T I 
7630 GOTO 3110 

7675 PRINT " # * I CRN'T MOUE !!!.... " 

I ■--• -■ •— .- ! I -. J,. : r I 

7705 GOTO 1510 

7735 IF I>£S GOTO 7780 

7765 GOTO 7795 

7785 IF H(C£)<5 GOTO 7615 

7 8 £5 GOTO 9835 
7840 IF H(£0)<>5 GOTO 7980 
7855 IF H(17)<>5 GOTO 7980 
7870 IF H=l GOTO 7960 
7885 GOTO 7945 

7930 GOTO 80£0 

7945 REM THIS SPfiCE RESERUED FOR THE SECOND MOUE 

7960 C1 = INT i£*^RND (~i ) += 5) +9 

7975 C£=Cl+5 

7990 D9=D9+ 1 

8005 IF Ij9>£00 GOTO 8088 

80£0 IF HiT:£i<5 GOTO 7870 

8035 IF HlCDOc GOTO 7878 

£!050 B9=0 

8065 GOTO 9835 

8095 GOTO 7585 

8110 FOR 1=8 TO £ STEP -£ 

81 £5 I4=cr-i)s;4 

8155 15=11+14 

8185 NEXT II 

8300 NEXT I 

£i£15 F'OR 1=7 TO 1 -E-TEP ~£ 

8£30 I4=fl-1)*^4 

8 £45 FOR 11=1 TO 3 

8£60 15=11+14 

8£75 IF TiI5)=I5 GOTO 8455 

8£90 NEXT II 

3305 NEXT I 

S3£0 GOTO 8515 
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8350 IF I<8 GOTO 841© 

8365 C£=Ci-5 

8380 IF HiC£J<5 GOTO 8185 

8395 GOTO 9835 

8410 C£=Cl+3 

8485 IF HfC£J<5 GOTO 8185 

13440 GOTO 9£°35 

3455 Ci=I5 

C|,;i"?p r""-'=r"'' 4-^ 

8485 IF HCC£)<5 GOTO 8£90 

8500 GOTO 9835 

Ci cr "I Err y Ci:^^:^'"^ 

8530 I8=I9-£ 

c.-_i=-r-j r UK i— 1? iU io o 1 Lr "1 

3560 IF 0(I+3£)=I GOTO 8605 

:"*icr"?cr E-„ir"«..»T' r 
0--M -J FlLrt i 1 

8590 GOTO 8695 
8605 C1=I 

£i650 IF I<5 GOTO 8575 
3665 IF HiC£}<5 GOTO 8575 
8680 GOTO 9835 

'_''.-'.--•_' ii i -■ J. .-■ 5_2l_= i 'J ■_' ! ■_■■_.! 

■O ;• i ti £ r- 17-—11 f jU I U O f O--! 

9740 GOTO 8530 

8770 GOTO 8530 

8785 I9=££ 

8800 FOR 1=19 TO (I9+£) 

£'815 IF 0(I+3£) = I GOTO 8369 

8830 HEKT I 

8845 GOTO 89£0 

8360 C1=I 

8875 C£=Ci-5 

8890 IF HU3£1<5 GOTO 8830 

8 905 GOTO 9S3!5 

89£0 IF 19=14 GOTO 8980 

8935 IF 19=6 GOTO 9010 

8950 19=14 

8965 GOTO 8800 

8980 19=6 

8995 GOTO &S&B 

9010 REM^THIS IS THE END OF THE MOUIHG SUE, 

90 £5 IF .h4>£i GOiO 9055 

9040 GOTO 9UZiGi 

9070 E9=0 

t"i r:ij"iEr" t^-ft'YCi -1 -"lEzrir:" 
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-> 1 yy 

3115 

3 1 45 
5 1 60 

3 1 90 

::ipr-ip, 



GO I U i 6feU 

IF Hil+I6)>£ GOTO 9160 
IF H (I + I 5 ) > £ GO TO 9 1 68 

GOTO 9940 



GOTO 9205 
GOTO 9£05 



:'C.-;0 


Kt.!i 


3 £50 


REM 


;'£65 


REM 


i'£S0 




-i£95 


REM 


3310 


RtM 


3 3 £5 


REM 


3340 


REM 


3355 


REM 


3 3 F0 


REM 


3385 


REM 


3400 


REM 


3415 


REM 


3430 


REM 


3445 


REM 


3460 


K:EM 


34 /S 


REM 


3490 


REM 


3505 


REM 


35£0 


REM 


3535 


REM 


3550 


REM 


3565 


REM 


^'580 


REM 


3595 


REM 


3610 


REM 


-".i ril, C""^ 


REM 


3640 


REM 


3655 


REM 


3670 


REM 


3685 


REM 


3 7" 00 


REM 


3715 


REM 


3730 


REM 


3 1" --T-J 


REM 


3760 


REM 


3775 


REM 


3790 


REM 


3805 


REM 


38£0 


REM 


3835 


REM 


3850 


IF 



IF Hil + I63<^ 

IF H(I+I5) 
GOTO 9940 

GOTO 5965 

HESE LINES ARE FOR E><PflNSION (FUTURE EKP? 



J9>0 GOTO 9955 
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4hk5 E9=B9+1 

9830 REM E9 IS THE FLRG FOR SO THE COMP„ WONT MOfJE INTO fl JUMPING. 

9895 IF B9>1 GOTO 9940 

9910 GOTO 4SS5 

99S5 REM_ ENTER CI C£ RNB J9 HERE FOR TESTING 

ciM4-'r'i E9— B4-— 9 

995=^ PRINT 

9970 PRINT "I MOUEB FROM "CI" TO "C£"." 

9935 IF J9=0 GOTO 101£0 

1 i7i|.'i0M . [4=.J9 

10015 PRINT "I JUMPED YOUR MfiN OH SQUARE "Gi:J4) 

19030 Bl=l 
10045 M7=GCJ4J 
10060 GOSUB 13345 
10075 MS=N4 
10090 GOSUB 11740 

10130 REM 
10135 ri7=C£ 

10165 GOSUB 13345 
i 1 80 Q9=N4 
10195 M7=C1 
10£10 GOSUB 1334^:! 
10££5 E$fCl)=fl5CN41 
19£40 H$iQ9)=E$CCl) 

19£35 GOSUB 11695 

10300 Bi=0 

10315 FOR 1=1 TO 64 

10330 IF fls(Il="YP" GOTO 10450 

10345 IF R$(I3="tK" GOTO 10458 

10360 NEXT I 

10375 PRINT 

10390 PRINT " "^ THE GAME IS OUER. I WIN !! *^ " 

10405 PRINT 

104£0 D3=D3+1 

10435 GOTO 14965 

10450 REM 

10465 FOR 1=57 TO 64 

10480 IF Fl$CD="CP" GOTO 105£5 

10495 NEXT I 

10510 GOTO 10585 

105£5 H5fIj="CK" 

10540 PRINT 

19555 PRINT " '^■^■'^- I GOT fl KING *5K« " 

10570 PRINT 

10585 REM 

10600 IF J9=0 GOTO 10730 

10615 IF C£>£4 GOTO 10645 
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1 0645 
1 0660 
1 0675 
1 0690 
I07yt) 
1 07£@ 
10735 
1 0750 

10810 

1 0370 
10885 

1 09y0 

10915 

10930 

1 0975 
1 0990 

11005 

1 10£o 

11050 

1 1065 

11080 
11110 

1 1 125 
11140 
11155 
11170 
1 1 185 

1 1800 

11815 

I iciyy 

I I £45 
1 1 £60 
11875 
1 1£90 
1 1 305 

11335 
11350 
11365 
1 1 380 



GOTO 10660 

IF Ii7<8 GOTO 1600 

PRINT 

PRINT '^YOLl LOST "J4" OF YOUR MEN THIS TIME! 

PRINT 

REM **;s«»^ D7 ^^^^ IS THE FLRG FOR MULTIPLE JUMPS 
RETURN 

GOTO 10y£5 
RESTORE 

pi=B=C=lJ=B4=fll=El=Ci=Dl=0 

PRINT 

PRINT ''WOULD YOU LIKE TO PRINT THE BOARD?" 

T E--jr-!l IT- T'i.fr 

i ! ir U I li^- 

IP 1)1;=" V" GOTO 109301 
IP l!$="YES" GOTO 10930 
GOTO 1 4560 

GOSUE 141£5 

Op T ^4T' 

PRINT "WOULD YOU LIKE TO PRINT THE INITIAL GAME BOARD?" 

INPUT D> 

IP ri5="Y" GOTO 11065 

IP D$="YES" GOTO 11065 

GOSUE 11185 

GOTO 11 £45 

•p;=i 

c=i 

GOSUB lli£5 

GOTO 11 £45 

REM ^-THIS SUE INITIALIZES THE BOARD ^^■'^■ 

H$ ( £ ) =m i 4 1 =m i 6 ) =H*: ( 8 ) =At- ( 9 ) =f\> ( 1 1 ) =H$ f 1 3 ) = A$ ( 1 5 ) = " CP " 



:i=A$i:8£::)=A$i: 

;i=:fl-i:(45)=ff$i; 

:!=A$f6i)=A$i: 



£4)="CP" 

47) =0$ (50) =0$ i;5£) =R$ (54) =A$ i:561 ="YP 

g.3)="YP" 



H$ilH)=fl:?i:£0 

fis C 4 1 1 =R$ ( 43 

fl$ ( 57 J =H$ f 59 

IF C=0 GOTO 11 £30 

GOSUE 141£5 

RETURN 

PRINT 

B 1 =Q7=Q9=M7=D7=C 1 =C£=D=0 

H=H+1 

REM A IS THE # OF GOOD MOUES TAKEN 
PRINT 

:^i=30 

REM Hi DETERMINES WHEN THE GAMES TIME LIMIT IS UP 

IF fi<Kl GOTO 11455 

PRINT 



175 



11410 

1 1 440 

i 1 545 

1 1590 
1 1 605 

1 1 635 



==RIMT "*^ SORRY '^- TIME IS UP! THIS GAME IS H DRAW.." 

-■PINT 

JC— j-'c-f- 1 

lOTO 14965 

•KINT "I^IHflT IS YOUR MOUE?" 

[NpuT rii5ri£5j5D$ 

[F M1>3e GOTO 11455 
[F M£>3£ GOTO 11455 
[F r1l<0 GOTO 11455 
[F r1£<0 GOTO 11455 

i1 =TNT l'H1 

1£= I NT I M£ 

■;OSUE i 3£S5 

[F D=0 GOTO 13195 



ILLEGRL MOUE!! TRY RGfllN ^kss 



=fll- 



1 1 65a 






11680 L 



;ij 1 u 

i8=Q7 

;OTu 

CM 1 



1 IS THE # 

113£0 

11740 

UET 



OF ILLEGRL MuUES MADE 



1 1 7-= 



1 ], ft 



11315 



1 ]_ 905 

1 1 935 
1 1 950 






Mi; 



££95 

£355 
1£385 

lc;445 

1 0..1 -?Er 



13535 









13040 IF MS 



1 £ 1 1 5 
13130 



OLLOWING RESETS THE EMPTY SQ. 

[F M8=4 GOTO 1 
[F MS=6 GOTO 1 

lF m3=^8 goto i 

GOTO 1 
5=11 GOTO 
;i=13 GOTO 

:==£0 GOTO 
S=££ GOTO 
;;=£4 GOTO 
:S=£5 GOTO 

>=£9 GOTO 

N31 GOTO 

34 GOTO 

> GOTO 

j GOTO 

i GOTO 

=41 GOTO 

43 GOTO 

45 GOTO 

47 GOTO 

50 GOTO 

GOTO 

GOTO 

M8=56 GOTO 






l!:i74j 



1 £805 
IS 



ET 



1 



'F 



-i"" 






1£9£5 
1S955 
1£985 

1 -:M 1 ■=; 
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l£i?5 

1£19W 
1 'd:d.i-3--i 

1 o ■=.--■=: 

i L.-i— ■-'•-' 



1 £c:9d 
1 £3£5 



IF r'1.8=57 GOTO 13875 

IF M8=59 GOTO 13105 

IP MS=61 GOTO 13135 

flsi63)="3£" 

GOTO 13150 

fl> ir18)="0l " 

GOTO 13150 

GOTO 13150 

n5 (MS} ="03" 

Ti"! 1 •"; 1 Sm 



1£ 
i£ 



l£4b0 



1£ 



i c:: 



1 £595 
i£610 






1 £7ai 
i£71^ 



1 iZ. { ■4"--- 

1 £760 
1 £775 
1 £790 

i £8£0 
1£835 
1£850 
1 £865 



UU 1 U 
HS f fit 

GOTO 

RS ( Mfc 
GOTO 
R£ ( Mfe 
GOTO 
8$ CMS 
GOTO 

GOTO 

isrrit 

iOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

HSfMf 

GOTO 

! !-r- ■. ! i: 
GOTO 

GOTO 

fl$ ( M' 
GOTO 

GOTO 

GOTO 
HSfMy 



Jj="04" 

I -. i! :-jCr II 

13150 
5) ="06" 

13150 

;. -, __ 11 (-5-7 I! 

13150 
:ij="08" 

13150 
:O="09" 

13150 
5) ="10" 

13150 
:n="ll" 

13150 

:; 1 = " 1 £ " 

13150 
3) ="13" 

1 3 1 1'0 
:n="14" 

13150 
33 ="15" 

E:j="16" 

13150 
3)="i7" 

J, 3 1 50 
3:1=" 18" 

-•/\ =" 1 9" 
13150 

3)="£0" 
13150 

3"i : 



1£910 GOTO 



£1" 

13150 

> 1 __ li CO " 

13150 

> 1 __ II --<•-' I' 

13150 
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1£9£5 HsfNyj="c:4" 
12940 GOTO 13150 
12955 H$!'M3:i="S5'- 
12970 GOTO 13150 
12985 H$(ri8)="£6" 
13000 GOTO 13150 
13015 minS)="27" 
13030 GOTO 13150 
1 3045 fl;f: f MS ) = " £8 " 
13060 GOTO 13150 
13075 H£iM8}="£9" 
13090 GOTO 13150 

13120 GOTO 13150 

13135 R£:ri8J="31" 

13150 IF B1=0 GOTO 13180 

13165 RETURN 

13180 REM 

13195 IF ri$="Y" GOTO 13255 

13210 IF Ie="tES" goto 13255 

13225 GOTO 11260 

13255 GOSUB 14125 

13£S5 REM's;»^THl"i SUB DEFINES THE SQUfiRES3K5« 

13300 M7=M1 

13315 GOTO 13345 

13330 fiT=M£ 

13345 IF ri7'--£8 GOTO 13488 

13360 IF r'17>£4 GOTO 13456 

13375 IF M7>20 GOTU 134Sy 

13390 IF ri7>16 GOTO 13450 

13405 IF M7>i2 GOTO 13430 

13420 IF ri7>8 GOTO 13450 

13435 IF ri7>4 GOTO 13480 

13450 N4=2SM7 

13465 GOTO 13495 

1 3 480 ri4= C £^ri7 J - 1 

13495 IF E1=0 GOTO 13525 

13510 RETURN 

13525 IF M7=M£ GOTO 13585 

13540 E$(Nl)=fl:?^0i4J 

13555 Q8=N4 

13570 GOTO 13330 

13585 C:?:(M2i=H:$fN4) 

i 3600 M9-N4 

13615 IF E5:ir'1l)="'YP" GOTO 13698 

13630 IF B*:fM13="YK" GOTO 13690 

13645 PRINT 

13660 D=l 

13675 GOTO 14119 
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1.-IB90 IF r;$i:M£:i="Tp" GOTO 13645 

l;';705 IF C$Cr'1£}="YK" GOTO 13645 

J -.7£.Li IF r:*:(r'1£:i="CP" goto 13645 

i:-;735 IF C.$ (M£)="C:K" GOTO 13645 

13750 IF E$i:Mll="YK" GOTO ISylO 

137^5 IF ril>r'1£ GOTO 13818 

13780 IF E$(M1)="YK" GOTO 1381© 

13795 GOTO 13645 

13810 REM 

13S£5 IF fiES(Ml-ri£)>5 GOTO 13855 

13840 GOTO 140£0 

1 ""355 IF .!=© GOTO 13645 

13970 REM THE COMP. DOESMT CK. THE MIIiULE SQ. ON MULTIPLE JUMPS 

r^:s85 IF flBScrii-rie) >18 goto 13975 

13900 IF HESCM1-M£:i >9 GOTO 13945 

13915 IF J>y GOTO 14S£0 

13930 GOTO 13645 

13945 IF J>1 GOTO 140£0 

13960 GOTO 13645 

13975 IF J>£ GOTO 140£0 

13999 GOTO 13645 

1 4ti'05 REM 

14020 H£iM9)=E$i:Ml) 

14035 Bl=£ 

14050 M8=Q8 

14065 GOSUB 11740 

14080 B1=0 

14095 GOSUB 1060 

14110 RETURN 

141£5 REM THIS SUE DRAWS THE BOfiRB 

14140 ><=15 

14155 FOR 1=1 TO 5 

14170 PRINT 

14185 NEKT I 

14200 PRINT TflBf:K+£0)?" E L fl C K " 

14£15 PRINT 

14£80 FOR N=l !U 3::^ 

14£45 PRINT TABOO 5 "11"? 

14 £60 FOR Nl=l TO 33 STEP 4 

14375 IF N1=N GOTO 143£0 

14£90 NEXT Nl 

14305 GOTO 14395 

14330 FOR N£=l TO £3 

14335 PRINT "11" 5 

14350 NE>'T N£ 

14365 PRINT "11" 

14330 GOTO 14740 

14395 FOR Nl=£ TO 3£ STEP £ 

14410 IF N1=N GOTO 14455 

144£5 NEKT Nl 

14440 GOTO 14530 
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1 ,i--iS^ 



i 4560 

1 '-f J 1- -J 

1 4590 
14605 

1 4635 

14650 
1 '4665 

1 4695 
14710 

i .-■! -7t=:^. 

X 't I !' si.E 

1 4785 
1 48y0 
14815 

14845 
1 4860 

1 4890 
1 4905 

J. '-r yi—^J 

1 4950 
14965 
1 4980 
1 4995 

15010 

1 5085 
15040 

1 ■Jk3-J-J 
J. -'J y (' nJ 

1 5085 

15100 

15115 

15145 
15160 
15175 
15190 
15805 



FOR N£=i TO 7 
PRINT '■ 11"? 
NEXT r-E 
pRirrr " ii" 

GOTO 1 4740 

REM 

N3=CH4-ii..-^4 

IF 83 >0 GOTO 14635 

FOR n4=l TO 64 

REIhD f\> i fi4 ) 

riE^KT N'-t 

ip E=@ GOTO 10960 

FOR ri£=l TO 7 
M5=8SfM3--il 

. ri6=N5+H£ 

PRIMT " ";h$!:n6:i ; " ii"? 

MEKT H£ 

PRINT " "Pfl5i:N6+l) j" 11" 

NEXT N 

PRINT 

PRINT ThEC;-v+-£0:i 5 " W H I T E " 

FOR 1=1 TO 6 

PRINT 

NEXT I 

DflTfl xXj "orsxx? "0£"jXX5 "oa'sxKj 

DRTH " 05 " J XX f " 06 " ? Xrt ? " £17 " ? XX ! " 08 
?XX? "10"?XX?"11"jXX!. 
I- " 5 XX 5 "15"? XX? "16 

5 t II I? XO ? t t« J ? X I^ ? «n I? 
;. I! _ V"-." . !' -Z'-Z' " . W „ " Oi 

. ■.- ■.■ , "-Z-C " . V-.-' lIC-"7" . w, 

? t 1 1" I ? Ctj ? 1**1 3 C I ? 11*1 ? 

II OiTiii , '---"■-.-■ " Z'i >' , V"-.-' "OC> 



04 
? X 

1£ 



TiHTfl XX? "09' 

DflTfl " 1 3 " ? XX J ■ I 'T- ■■ ? .-,^\ ? " 1 D ■" ? ?■:,", ? "'it''"? .^ 

DflTfl XX? "17" 5 XX? "IS"? XX? "19"? XX? "£© 

DflTfl "81"? XX? 

DflTfl XX? "£5" 

DflTfl "89"?' 

RETURN 

PRINT 

PRINT "VOL! MADE "H+fll" MOUES DURING THIS GAME." 

IP fli=fi GOTO 15055 

PRINT "OF THESE MOUES "fll" WERE ILLEGAL." 

IF fll<3 GOTO 15055 

PRINT " DO YOU CHEAT OFTEN? ... " 

REM 

PRINT 

IF Dl>6 GOTO 15£05 

REM Dl DETERMINES HOW MANY GAMES THAT CAN BE PLAYED 

IF Dl=9 GOTO i5£80 

PRINT "WOULD YOU LIKE TO PLAY ANOTHER GAME?" 

D1=D1+1 

IF D£="Y" GOTO 10780 
IF D$="YES" GOTO 10788 
PRINT 
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15££e PRINT "yUU WOH ■■114" GAMES. I WON "IiS" GAMES. AND WE " 

15£35 PRINT "PLAYED "DS" DRAW GAMES." 

15S50 PRINT 

15265 IF D4=Ii3 GOTO 15115 

15280 PRINT 

15295 PRINT " THANK YOU FOR PLAYING." 

15310 PRINT 

15325 END 



RlJIi CHECKERS 



THIS IS fl CHECKER GAME. IT IS PLAYED BETWEEN YOU 
AND THE COMPUTER. THE RULES ARE SIMPLE - ALL PIECES 
EXCEPT KINGS CAN ONLY MOUE FORWARD? DIAGONALLY? AUOIDING 
ALL BARK i KK ) SQUARES? IF THE SPACE IS UNOCCUPIED. 

IF THE SPACE IS OCCUPIED BY ONE OF YOUR MEN-YOU CAN NOT 
PROCEED FURTHER. 

IF THE SPACE IS OCCUPIED BY YOUR OPPONENT-YOU MUST JUMP 
IF POSSIAELE. 

IF YOUR PIECE HAS BEEN KINGED-THE RULES ARE THE SAME 
EXCEPT IT MAY ALSO MOUE BACKWARDS? AUOIDING ALL OF 
THE DARK SQUARES i KK ) . 

YOUR MOUES ARE LIMITED TO N E ^ SPACE s ONLY. . 
UNLESS YOU ARE JUMPING PIECES. 
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TO MOIJE- 



1 -ENTER THE SQUARE # THE PIECE IS OH THAT YOU PLRN TO MOUE 

S-THEN ENTER THE SQUARE # YOU ARE MOUING TOO 

3- THEN ENTER THE NUMBER OF THE COMPUTER'S MEN YHH ARE 

GOING TO JUMP IN THE PROCESS. 
4-ANIi FINALLY TYPE (YES OR NO) IF YOU WANT A PRINT 

OUT OF THE BOARD AFTER THE MOUE OR NOT, 



THE FOLLOWING IDENTIFICATIONS WILL BE USED ON ALL 
OF THE GAME BOARD PRINT OUTS. 

YP "MEANS YOUR PAWN. 
YK "MEANS YOUR KING. 



CP -MEANS THE COMPUTERS PAWN. 
Cl< -MEANS THE COMPUTERS KING. 



HERE IS n SAMPLE MOUE-- 

l-iHAT IS YOUR MOUE? 
.■■' cic} ? i y 5 y ? YEt' 

YOUR MOOES CAN BE MADE Or^ ANY OF THE UNOCCUPIED 
SQUARES NUMBERED FROM 1 TO 3£. 

DON'T WASTE TOO MUCH TIME AS THE GAME HAS A TIME LIMIT. 



YOU ARE W H I T E AND MOUE FIRST, 
GOOD LUCK ! . . . 



JOULD YOU LIKE TO PRINT THE BOARD? 
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WOULD YOU LIKE TO PRIMT THE INITIAL GRME EOflRD"' 
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whht is your moue? 

?c'3j 19? 0? Y 



D L. H L- 



T I III I II III III mil I mil II mil mill HI 11 iiinii 

TT II II II II II II II II 
T T Vx' T I r-p T I xK 11 f:P II y>:; II CP II >^i II CP II 

TT TT If TT TT JJ JI II II 

Tiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

JI II II II 11 II u II li 

T T r;p II >m II CP II XX II CP II ><>■; II CP II XX II 

TT "" II '"' II II II II 11 II II 

iiiiiiiiiiiiiiiiiimmiimmmimiiimiiiii 

TI II IT II II II II II II 
TT w TT CP II XX II CP II XX II 11 II XX II CP II 
TI TT II II II II II II 11 

Tiiiiiiimimiiiiimiiiiiiimiiiiiiiiiiiiiim 

TI TI TT II II II II II II 

• TI ;<X TI CP II XX TI 16 II XX II 
TT II II II II II 

Tiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiimiiiiiiiiiii 

II II II II II II II II II 

II XX II 17 II XX II 18 II XX II YP II XX II CS II 

~— — — TT TT TT TT TT TT Tf 

TiTiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiimiiiiiiii 

TI II II II II II II II II 
TI YP II XX II YP II XX II ?3 II XX II YP II XX II 
TT TI TT TT II II II II II 

iiiiiiiiiiiiiiiiiiiiiiiiiiiiriiiiiiiiiiiiiiiiiiiii 

II II II II II II II II II 

TJ XX TI YP II XX TI YP II XX II YP II XX II YP II 
TT TI TI TI II II II II II 

Tiiiiiiiiiiiiiiiiiiiiiiimiiiimiiiiiiiiiiiiiiii 

TI TT TI II II II II II II 
TT YP II YX II YP II XX II YP II XX II YP II XX II 

TT TT TI TI II TT II II II 

iiiiiiiiiiiniimimiimiiiiimiiimiiiiiiiii 
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T T 



IS YOUR MOUE? 
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CRAPS: 

DESCRIPTION 

This program simulates a crap game. The computer rolls the dice and keeps 
score. In this simulation the computer is one of the two players, you are 
the other player. For hard way rolls the computer gives you the hard way 
odds but does not accept hard way bets. You may bet against yourself or 
the computer if you don't think the point will be made. 



INSTRUCTIONS 

For instructions list the program. Upon execution the program will prompt 

you for all the required information necessary for game operation. 



LIMITATIONS 

In line 370 the RND(-l) function is used. The (-1) may be changed to a posi- 
tive integer without effecting program operation. Program storage and execu- 
tion will require about 5K Bytes of memory. A sample run of this game is in- 
cluded after the program listing. 
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1,0 REM THIS IS THE GflME OF CRRPS 

't;pi ppVr-iT'^THTS IS THE GAME OF CRflPS" 

4^. cDif-iT'^vfifi HNTi THE nOMpUTER PLhY fi CkRP GhME" 

50 PR INT "TO 'bet flGfllNST YOURSELF BET (-) DOLLRRS" 

f,Pi PRINT 

70 PRINT" TO STOP PLRYING BET O DOLLARS" 

gg pp:=i[-4J 

lOe"^ PR I NT "WHAT NUMBER BETWEEN 1 AND 711 IS LUCKY FOR YOU TODAY" 

110 INPUT fi 

i£0 PRIHl 

rS0 IF H<1 GOTO 100 

140 IF H>71i GOTO 100 

■} ■z:-i~j '..' — C=NTl r Ci'i 

I _>K} !-•.— Kiii.! '. i i-' 

•j Afi Y= T NT I" £p;0*^X 3 +5G1 

170 PR I NT" GOOD. . . YOU HAUE "Y" DOLLARS TO PLAY WITH." 

190 PRINT 

£00 PRINT"YOU ROLL FIRST..." 

£10 PRINT 

££0 IF Z=l GOTO £90 

■Z'-'Oi PRINT 

£40 PRiriT"YOU NOW HflUE "Y" DOLLRRS" 

£50 PRINT 

pAfi IF' Y=0 GUTO 6bGi 

£70 PR I NT "CHANGE THE DICE? TOO THE LEFT. " 

£80 PRINT 

£90 PR I NT "HOW MUCH DO YOU BET" 

300 INPUT E 

310 IF B=0 GOTO 1030 
3£0 IF E>Y GOTO 350 
330 L=0 

350 PRINT" DON'T TRY TO BET MORE THAN YOU HRUE? PLERSE. " 

360 GOTO £90 
370 C=INTf6^RNDi-l) ) +1 
380 D=INT(6^RNDi-4) ) +i 
390 L=L+1 

4y@ F=C+D 
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410 IF L>1 GOTO 710 
4£:0 E=C-+-D 

430 IF Z=£ GOTO 810 

440 IF E=£; GOTO 510 

450 IF E=3 GOTO 510 

470 IF E=1i GOTO 550 

480 IF E=l£ GOTO 510 

490 PR I NT "YOU ROLL "C" flNl! "D" SO YOUR POINT IS "E 

500 GOTO 1060 

510 PR I NT "YOU ROLL "C" FiHD "B" AND CRflP OUT. . = " 

530 IF Y=0 GOTO 850 

540 GOTO 590 

550 PRInT"Ynu ROLL "C" HHD "D" RND pfiSS, . . . " 

560 GOTO 5S0 

570 PRiriT"YOU ROLL "C" Rfin "B" HND MAKE YOUR POINT.." 

580 IF Y=0 GOTO 650 

600 PRINT 

610 PR I NT "YOU NOW HflUE "Y" DOLLRRS" 

630 GOTO £90 

f^:50 PRINT 

6t'0 PRINT 

670 PR I NT "YOU HhUE GONE BANKRUPT. .... SORRY flBOUT THAT. 

680 PRINT 

690 PRINT 

700 GOTO 1 £90 

710 IF Z=£ GOTO 9£0 

730 IF F=7 GOTO 76© 

740 PRINT" YOU ROLL "C" AND "D" ...ROLL AGAIN." 

750 GOTO 370 

760 PRINT"YOU ROLL "C" RND "D" AND LOSE..." 



■k3 iji. 

E;00 GOTO £40 

810 IF F=£ GOTO 8£i0 

8£0 IF E=3 GOTO 880 

830 IF E=7 GOTO 900 

940 IF E=ll GOTO 900 

850 IF E=l£ GOTO 888 

860 PRINT" I ROLL "C" AND "D" SO NY POINT IS "E 

870 GOTO 1060 

880 PRINT" I ROLL "C" AND "D" AND CRAP OUT..." 

890 GOTO 580 

900 PRINT" I ROLL "C" AND "D" RND PASS..." 

Cj i fk r:|""|Tn 5'-'0 
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:i£y Ih r=L GUiU 1910 

;i30 IP F=7 GOTO 960 

HQ PRInT"__ I ROLL "C" HMD "IJ" ...ROLL HGhIN. " 

:'iW GOTU 3i''0 

OLL "C" HMD "D" HfiD LOSE..." 
1010 PRIMT" I ROLL "C" HND "B" AND MAKE MY POINT" 

i0£y GOTO 5£:0 

1030 PRIMT"THfiHKS FOR PLAYING THE GAME. AND CONGRATULATIONS" 
1040 PRINT"FOR BEING ABLE TO QUIT WHILE YOU WERE AHEAD." 

1050 GOTO 1390 
1060 IF F=4 GOTO 1110 
1070 IF" E=6 GOTO 1170 
1080 IF F=8 GOTO 1S00 
1090 IF E=10 GOTO 1S60 
1100 GOTO 370 



1 130 PRINT 

1140 PRINT"THE ODDS ARE 8s 1 YOU CAN'T MAKE IT THE HARD WAY.." 

1150 PRINT 
1 1 60 GOTO 370 

1 190 GOTO 1130 

1830 PRINT"THE ODDS ARE 10° 1 THAT YOU CAN'T MAKE IT THE HARD WAY.." 

1840 PRINT 



1890 PKirii 

1 yyy PRlNi 

1310 PR I NT "WOULD YOU LIKE TO PLAY ANOTHER GAME" 

1380 INPUT f\^ 

j oop ip iZ|-£:— 1! YFR" nfiTn 13ft0 

1340 IF H:$='"Y" GOTO 1360 
1350 GOTO 1390 
1360 PRINT 

1380 GOTO 100 
1390 END 
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F:U!"I r:RF'iF'S 



THIS IS THE GAME OF CRFiPS 

■iTill HMD THE COnPUTER PLnV fi CRhP GRME 

TO BET RGFilNST YOURSELF BET C-) DOLLFiRS 

TO STOP PLHYING BET Q BOLLflRS 
WHAT NUMBER EETWEEM 1 RND 711 IS LUCKY FOR YOU TODRY 

00011=,. YOU HflUE 156 DOLLRRS TO PLRY WITH. 

YOU ROLL FIRST.. . 
HOW MUCH DO YOU BET 

?100 

YOU ROLL 4 flriD 4 SO YOUR POINT IS S 

THE ODDS FiRE lOs 1 THRT YOU CAN'T MAKE IT THE HARD WAY 

YOU ROLL £ AND 6 AND MAKE YOUR POINT.. 

YOU NOW HA'-iE £56 DOLLARS 

Flow tlUCH liO YOU BET 

"?— £00 

YOU ROLL 4 AND 3 AND PASS. . . . 

YOU MOW HAUE 56 DOLLRRS 

HOIJ MUCH DO YOU BET 

-", n:: ■ ci 
-■ , i r^i 

YOU ROLL 5 AND 3 SO YOUR POINT IS 8 
THE ODDS ARE lOs 1 THAT YOU CAN'T MAKE IT THE HARD WRY 
YOU ROLL 1 AND b AND LOSE. . . 

YOU HAUE GONE BANKRUPT..... SORRY ABOUT THRT. 



WOULD YOU LIKE TO PLRY ANOTHER GRME 

?N0 
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DOGFIGHT: 

DESCRIPTION 
This is a simulated dogfight between a Phantom jet and a Mig fighter. You 

are the Phantom pilot and your plane is equipped with missiles. The mig is 

also equipped with missiles and is capable of taking evasive action. If you 

are outmaneuvered the mig will fire at you. After each missile launching 

the computer will issue a damage report. The object of the game is to shoot 

down the mig before you loose your plane. 



INSTRUCTIONS 

The game asks all the questions necessary to play. For additional informa- 
tion list the program. 



LIMITATIONS 

This game should execute in standard Basic. It will require 4K Bytes of mem- 
ory for execution. A partial run of this game is included after the program 
listing. 
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DOGFIGHT 



1PS PPT NT "THIS IS H SIMPLIFIEB OERIflL liOGFIGHT" 

140 PRINT "IT IS BETWEEN YOUR PHANTOM AND AN ENEMY MIG" 

1.68 PRINT 

180 PRINT "FUf HELL - GOOD LUCK ^ " 

£00 PRIfiT 

£'40 PRINT 

£80 REM fl4 IS THE HIT RADIUS 

300 h3=h4 

3£0 PRINT 

•::;4.ci PPTN"^ ^'hN FNF MY MTG HAS EEEr-1 SPOTTED ON RADAR" 

360 PRINT "ALERT YOUR WEAPON'S CONTROL OFFICER AND ARM YuUR WEAPuNS" 

38f1 PRINT 

400 PRINT "ENTER YOUR BEFENSIUE MANEUUERS NUMBER (i-lOS)" 

4£0 PRINT 

4 40 INPUT !-;4 

460 XS=(--1 J^*^>-:4 

430 V4=><psv4 

'^IPm PRINT 

5£0 PRINT "MIG IS TAKING EUASIUE ACTION" 

560 GOTO 580 

530 y=fRND(X43 +0» 5)*^60 

g,00 M=M-!-l 

6£0 H--(RNDf-i)+0»53^«60 

i;:,40 C=(RND (~£) +0. 5)^*^60 

660 PRINT 

•p0y xi=(INT(Y.^"100J*100+INT(>^) ) 

7£0 IF M<35 GOTO 76© 
740 h3=:?«C|4 

7^0 TF L=i GATO 1000 

73- pPiNT "FNEMY UECTOR RANGE IS"? Kl ? "METERS" 
800 PRINT "ENTER YOUR MISSILE DETONATION RANGE" 
8£0 INPUT E 

840 PRINT 

3e.0 vi=int(y:i 

880 IF ABS (E-Y1XA3 GOTO 1120 

900 R=hES CE-Yl 3 

330 TF rB-Y11>0 GOTO 980 

940 PRIMT "MISSED - MISSILE SHORT BY" ? R? "METERS" 
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96ti GOTO lO£i0 

980 PRINT "MISSED - MISSILE LONG EY'SR 5 "METERS" 

1080 PRINT 

10£'0 L=£1 

1040 PRINT "ENEMY LRUNCHING MISSILE - TfiKE EURSIUE ACTION" 

10€=0 IF flBS i"fi-C3<H3 GOTO 1368 

1080 PRINT "MISS - YOU EUflDEB HIS MISSILE" 

1 1 0M GOTO 580 

11S0 IF HBSi:B-Yi:i<i:fl3.--£3 GOTO i£60 

1140 Di=Ifl + l 

1160 IF IJ1>4 GOTO 1££0 

1180 PRINT "NERR MISS - MINOR DflMflGE TO MIG" 

1£80 GOTO 500 

i££0 PRINT "DIRECT HIT - ENEMY MIG DESTROYED" 

1£40 GO TO 17yti 

1£60 IF flBS i:E-Y1 3< m 3.^-6 3 GOTO 1££0 

1£80 IF Dl>4 GOTO 1££0 

1300 PRINT "DIRECT HIT? Mfl-JIiR DRMflGE TO MIG - STILL FLYRELE" 

13£0 Dl=Dl+3 

1340 GOTO 500 

1360 IF flESCH-C3< (R3.--33 GOTO 1548 

1380 E1=E1+1 

1400 IF El>4 GOTO 1480 

14£0 PRINT "YOU'UE BEEN HIT! MINOR DRMRGE TO PHRNTOM" 

1440 GOTO 1100 

1460 PRINT 

1480 PRINT "BOOM! RIRCRRFT UNCOTTROLLRBLE - EJECT! EJECT!" 

1500 PRINT "BETTER LUCK NEKT TIME? GUYS!" 

15£0 GOTO 1780 

1540 IF HBSi:fl-C3< i:fl3.--"93 GOTO 1468 

1560 IF El>4 GOTO 1480 

1580 PRINT "DIRECT HIT ON F-HRNTOM" 

1600 PRINT "MAJOR DRMRGE? CONTROLLREILITY MRRGINRL" 

16£y L=0 

1640 REM IF L=l YOU LOSE TLRN RFTER R DIRECT HIT 

1 6 60 E 1 =E i +4 

1680 GOTO 580 

1700 PRINT 

17£0 IF h3=(PKR43 GOTO 1788 

1740 PRINT "MESSRGE RECEIUED FROM HERDQURRTERS" 

1760 PRINT "NICE GOING YOU GUYS!" 

1780 PRINT 

1800 PRINT 

18£0 PRINT 

1840 PRINT "WOULD YOU LIKE RNOTHER DOGFIGHT" 

1860 INPUT Z$ 

1880 PRINT 

1900 PRINT 

1920 PRINT 

1940 IF Z$="Y" GOTO £80 

1960 IF Z$="YES" GOTO £88 

1980 END 
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RUM DOGFIGHT 



THIS IS fl SIMPLIFIEB RERIfiL DOGFIGHT 

IT IS BETWEEN YOUR PHRNTON flND AN ENEMY MIG 

FL.'r WELL - GOOD LUCK ! 



Fir! ENEMY MIG HfiS BEEN SPOTTED ON RflDflR 

FlLERT YOUR WERPON'S CONTROL OFFICER RND RRM YOUR WEfiPONS 

THE MISSILE HIT RADIUS IS SO METERS 

MIG IS TAKING EURSIUE ACTION 

ENEMY UECTOR RANGE IS 3249 METERS 

ENTER YOUR MISSILE DETONATION RANGE 

?3£0W 

DIRECT HIT? MAJOR DAMAGE TO NIG - STILL FLYRBLE 

MIG IS TAKING EUASIUE ACTION 

ENEMY UECTOR RANGE IS 3938 METERS 

ENTER YOUR MISSILE DETONATION RANGE 

?3 10£i 

MISSED - MISSILE LONG BY 6£ METERS 

ENEMY LAUNCHING MISSILE - TAKE EUASIUE ACTION 
MISS - YOU EUADED HIS MISSILE 

ENEMY UECTOR RANGE IS i294'5 METERS 

ENTER YOUR MISSILE DETONATION RANGE 
?£950 

MISSED - MISSILE LONG BY £4 METERS 

EriEMY LAUNCHING MISSILE - TAKE EURSIUE ACTION 
YOU'UE BEEN HIT! MINOR DAtlRGE TO PHANTOM 
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EMEMY UECTOR RRNGE IS 6687 METERS 

ENTER YOUR MISSILE DETOMRTION RRNGE 

?b650 

niSSED - MISSILE LONG BY £8 METERS 

ENEMY LflUNCHING MISSILE - TRKE EUflSIUE ACT I ON 
YOU'UE BEEN HIT! MINOR DRMRGE TO PHANTOM 

ENEMY UECTOR RRNGE IS 5473 METERS 

ENTER YOUR MISSILE DETONRTIOH RRNGE 



THRECT HIT? MfiJOR DRMRGE TO MIG - STILL FLYRELE 

MIG IS TfiKING EURSIUE RCTION 

ENEMY UECTOR RANGE IS 1432 METERS 

ENTER YOUR MISSILE DETONATION RRNGE 

:■ J. '-!■--> fL' 

MISSED - MISSILE LONG BY £5 METERS 

ENEMY LAUNCHING MISSILE - TRKE EURSIUE RCTION 
MISS -- YOU EURDED HIS MISSILE 

ENEMY UECTOR RANGE IS 1948 METERS 

ENTER YOUR MISSILE DETONATION RANGE 

? 1 940 

MISSED - MISSILE LONG BY 3£ METERS 

ENEMY LAUNCHING MISSILE - TRKE EURSIUE RCTION 
YOU'UE BEEN HIT! MINOR DAMAGE TO PHANTOM 

ENEMY UECTOR RANGE IS 4£74 METERS 

ENTER YOUR MISSILE DETONATION RANGE 
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GOLF: 

DESCRIPTION 

This version of Golf was onginally called Super Golf. The major difference 
between it and Golf was that in Super Golf you had the option of playing 
less then a full 18- hole game. This particular game also has more obstacles 
and more difficult shots then the standard Golf game. The game is set up 
for only one player. The computer will keep your score and tell you how you 
are doing on the course. FOUR 



INSTRUCTIONS 

All necessary instructions will be provided when the program is run. 



LIMITATIONS 

The source code for this game requires 8K Bytes of memory for storage. An 

executed run of this game is included after the source listing. 
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GOLF 



130 REM THIS IS THE GFlME OF GOLF 

140 PRINT"*;^** WELCOME TO THE COIJ^ITRY CLUB! THIS COURSE IS" 

1!=|0 Z'^=0=7 

160 REM :«»-:«•*»■: Z9 DETER = THE CLOSENESS TO THE CUP TO SINK THE BRLL 

170 Z8=3*Z9 

1S0 REM Z8 IS THE DIST, OF Z9 IN FEET. 

190 PRINT":«««5« AN EIGHTEEN HOLE 5 CHAMPIONSHIP LfiYOUT. " 

£00 Z=i8 

£10 PRINT 

££0 PRINT-nO YOU WANT TO PLAY ALL 18 HOLES? fYES OR NO) " 

£38 INPUT m- 

£40 IF fl$="YES" GOTO 3^>0 

£50 IF H$="Y" GOTO 350 

£b0 PRINT 

£70 PRINT" HOW MANY HOLES DO YOU WANT TO PLAY? <19" 

£80 INPUT Z 

£90 Z=INT(Z) 

3 £10 IF Z>8 GOTO 348 

313 PRINT 

3£0 PRINT" YOU MUST BE A TENDERFOOT!... " 

338 PRINT 

340 Z1=Z+1 

350 PRINT 

360 PRINT"5«5«*-* THE COMMENTATOR WILL EKPLAIN THE COLKSE AS YOJ" 

370 pRINT"'««^-3« PLAY. ENJOY YOUR GAME? SEE YOU ON THE 19TH TEE..." 

380 PRINT 

390 PRINT"WHAT IS YOUR HANDICAP ? (FOR "Z" HOLES)" 

400 INPUT H 

410 PRINT 

4£0 PRINT"DIFFICULTIES AT GOLF INCLUDES" 

430 PRINT"0=HOOK? 1=SLICEj £=P00R DISTANCE? 4=TRflP SHOTS s 5=PUTTING' 

440 PRINT" WHICH ONE IS YOUR WORST (ONLY ONE)?" 

450 INPUT D 

460 IF D<0 GOTO 43ei 

470 IF D=3 GOTO 440 

480 IF D>5 GOTO 430 

490 PRINT 

500 PRINT 

510 Hl=l 

5£0 REM HI IS THE HOLE # 

530 S=S£=S3=S8=P9=0 

540 REM Zl IS THE # OF HOLES PLA'fED 
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550 REM C7 IS THE BIST. THE SHOT WENT 

560 REM S IS THE # OF STROKES TAKEN PER HOLE 

5?0 REM S£ IS THE # OF STROKES TAKEN PER GAME 

580 REM P7 IS THE PUTT_DIST 

590 REM PS IS P7 IN FEET 

ib00 REM H IS 'i'OUR HANDICAP 

610 REM Hi IS THE HOLE # 

620 REM D£ IS THE DIST. Di IN FEET 

640 REM HI IS THE DIST= TO THE CUP 

660 REM P IS PAR FOR THE HOLE YOU ARE ON 

f;;,70 ppif-Jj 

680 PR I NT "THESE ARE THE CLUES YOU HAUE IN YOUR BAG" 
690 PRINT"YhRDhGE DESIRED SUGGESTED CLUBS" 

700 PRINT" £00 TO 300 YDS= 1 TO 4" 

710 PRINT" 100 TO £00 YDS. 13 TO 19" 

7S0 PRINT" TO 100 YDS. £0" 

750 PRiNT"'i-'OU ARE AT THE TEE OF HOLE "HI" DISTANCE "Dl" YARDS ? PAR "P 

760 IF H1>1 GOTO 798 

770 Ri5="RN flDJACENT FAIRWAY." 

780 h£$=" ROUGH. " 

790 PRINT"ON YOUR RIGHT IS "Rl5 

Qyy p|r.j^|T"nN YOUR LEFT IS "APS 

810 PRINT 

8£0 PRINT" WHAT CLUE DO YOU CHOOSE?" 

p--;iri TNC-j IT \~ 

B40 IF C< 1 GOTO 810 

850 IF Di<i00 GOTO 918 

860 IF 019 GOTO 930 

870 IF C>4 GOTO 890 

880 GOTO 1060 

890 IF C<13 GOTO 930 

900 GOTO 1110 

'310 IF C=£0 GOTO 960 

930 PRINT" IMPROPER SELECTION! CHOOSE AGAIN" 

940 PRINT 

950 GOTO 830 

960 CI =100 

970 PR I NT "YOU MAY NOW GAUGE YOUR DISTANCE BY" 

980 PRINT"PERCENT OF YOUR FULL SWING - FROM .81 TO l.OO" 

990 INpUI C7 

1000 IF C7<.01 GOTO 970 

1010 IF C7>1.00 GOTO 970 

1 030 C7=C 1 *;RND C -P } + . 5 

1050 GOTO 1150 
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1 8£=0 C£==iJ+4 

1070 C7= ( 1./C8) ^1000 

1030 C7=C7»^RND i -C i 

1090 C7=C7-M50 

1 1 00 GOTO 1 1 50 

1 1 S0 C6=C6*^S000 

1 1 30 C7=C6s^RHB C -C ) +60 

1 140 GOTO 1150 

1 160 Ri=RHD i-53 

1170 IF Rl>,15 GOTO 131© 

1180 R£=IHT[100»^R1) 

i 190 IF R£=0 GOTO 1240 

1300 IF R£=i GOTO 1360 

1310 D3=Dl-IriT(C7) 

1330 PRINT" YOU SLICED YOUR s^^sts SHOT? WENT OUT OF BOUNDS „ " 

1330 GOTO 13S0 

1340 PRINT" YOU SLICED YOUR *^«5ss SHOT? WENT INTO WFfTER ...." 

1350 GOTO 1380 

1360 PRINT" YOU HOOKED YOUR *»:5ss SHOT? WENT ???? ...." 

1370 GOTO 1380 

1380 PRIHT"PENfiLTY STROKE fiSSESSED. HIT FROM PREUIOUS LOCfiTION. " 

1390 S=S+1 

1300 GOTO 810 

1330 D3=Dl-INTi"C73 

1330 IF D3<0 GOTO 1380 

1340 Si=D3 

1350 IF DKZ9 GOTO 3970 

1360 PRINT"SHOT WENT "C7" YARDS . IT^S "Dl" YRRDS FROM THE CUP." 

370 GOTO 1430 
1380 Dl=(— 1J^D3 

;'90 IF DKZ9 GOTO 3970 

1-00 PRIHT"TOO MUCH CLUE. YOU'RE PAST THE CUP." 
1410 PRINT"SHOT WENT "C7" YRRDS. IT'S "Dl" YARDS FROM THE CUP." 
1430 IF DK30 GOTO 1460 

1 430 R3= I NT i smmm C D l :n 

1440 PRINT"YOUR BALL IS "R3" YARDS OFF LINE. . . . IN FAIRWAY." 

1450 GOTO 810 

1470 IF D3=0 goto 1840 

1480 PRINT 

1490 PRINT 

1500 PR I NT "YOU FIRE ON THE GREEN "D£" FEET FROM THE PIN." 

1510 PRINT" EUERYONE PLEASE TALK SOFTLY? NOW!" 

1530 PRINT"CHOOSE YOUR PUTT DISTANCE BY POTENCY NUMBER FROM 1 TO 13" 

1530 INPUT PI 

1540 IF Pl>i3 GOTO 1530 

1550 IF Pi<l GOTO 1530 

1560 P7=C3*^Pl)««RNDi>Pl) + i.5) 
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1570 P7=ir-!T(P71 

1580 P7=P7+1 

1590 REM P7 IS THE DIST. THE PUTT WILL GO 

1 600 P8=iE:*^P7 

16£o IF HBSCGX29 GOTO 1710 

j ft30 IF R1>.5 GOTO 1660 

1640 PRiriT"TniJ OUERSHOT THE CUP RND LfiMDED IN THE FfilRWHY. " 

1 f,^Q GHTO 1670 

16=-,fi PRINT"tOU OUERSHOT THE GREEN? RND LflNDEIi IN fl SAND TRfiP!!" 

1670 PRINT'' YOU LOST ONE STROKE GETTING BfiCK TO THE GREEN" 

1690 D£=HESiGJ 
1700 GOTO 1490 
1710 IF G<0 GOTO 1780 

1730 IF G<Z9 GOTO 1840 

174y pRIrffYOUR PUTT IS SHORT." 

1750 PRINT 

1760 S=S+i 

1 770 GOTO 1500 

1780 S=S+1 

1790 D£=(-1)*^G 

1800 IF G<Z9 GOTO 1840 

1810 PR I NT" PASSED THE CUP= " 

1880 PRINT 

1830 GOTO ±'300 

1850 IF S=l GOTO 1360 

I860 PRINT" YOU H*^O^L^E*^D IT " 

1880 PR I NT "YOUR SCORE ON HOLE "HI" WflS "S 

1900 PR I NT "TOTAL PAR FOR "HI" HOLES IS "P9" YOUR TOTAL IS "S£ 

1980 REM fl DETER. YOUR RATING 

1930 IF H=(--l) GOTO 1980 

1940 IF H=0 GOTO £010 

1950 IF H=l GOTO £030 

I960 IF fl=£ GOTO £050 

1 970 GOTO £0T-"0 

1980 PR I NT "A BOGEY...." 

1990 REM 

£000 GOTO £070 

£010 PR I NT "A PAR" 

£0£0 GOTO £070 

£030 PRINT"UERY GOOD A BIRDIE" 

£040 GOTO £070 

£050 PRINT" ^^^ AN EAGLE !! « .." 

£060 GOTO £070 

£070 H1=H1+1 
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;:090 IF H1=Z1 GOTO 3£40 
i'iOS IF Hi=S GOTO £320 
;;li0 IF HI =3 GOTO £370 
::l£0 IF HI =4 GOTO £420 
■'130 IF HI =5 GOTO £470 
OTO £5£0 



£ L. L_i "t —;C 



I --iZ' UU i 



ilr'O IF' Hi =9 GOTO £670 

::i80 IF HI = 10 GOTO £7£0 

:'190 IF Hi = 11 GOTO £770 

'£00 IF Hl=i£ GOTO £S£0 

?£10 IF Hi =13 GOTO £870 

:'££0 IF Hi = 14 GOTO 3040 

•'£30 IF Hi =15 GOTO 3090 

:'£40 IF HI = 16 GOTO 3140 

:' £50 IF H i = 1 7 GOTO 3 1 '30 

'>p(:_Ci ]■ p LJi— i^ci QfiTf! '■■•.:-'ci.C 



-i-O 



310 GO'lu i-'£0 



^340 fll£="H:DJFlGFriT FFilPWflY." 

'350 h£:5=" ROUGH. " 

' 3t-0 GOTO 730 

'370 III =500 

'380 P=5 

:390 Hls="OUT OF BuUNHS. " 

:4 00 h£s="FO!JGH. " 



i y: I3U i 



y'-'L-i 



'44y Hi $="kUUGH. " 

'450 H£5:="firijHceriT fhirimht." 

'480 p=4 

:500 R££="8DJHCFHT FhIRWhY. " 



ly uui 



/:-;[. 1 



:;550 h£s=" ROUGH. 

■'560 GOTO 730 

:'5£=ti P=4 
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iE'590 fii:|:=fii$ 

L=:b00 H£$=Hl$ 

£610 GOTO 730 

£:fc.£0 Dl = i96 

£630 P=3 

£640 Hi$="nUT OF BOUHHS." 

£650 R£$=" ROUGH. " 

£660 GOTO 730 

£670 D 1=400 

£ 6 90 Fi 1 $=H 1 ^■ 
c { '-Jy H£"-?-^^H£'-?- 
£710 GOTO 730 
£!7£0 D 1=560 

C' "'? O j~! ^':ir^ 

£ 74y H 1 ^-=H 1 i- 
£750 H£$=fl£$ 
£760 GOTO 730 

£790 Hl5=fl£:5 

£300 h£>=h£$ 

£810 GOTO 730 

£3£0 D 1=357 

£930 P=4 

£840 Hi $=" ADJACENT FfilRWfiY. " 

£S50 h£$=h1.$ 

£860 GOTO 730 

£870 pi =£94 

£880 P=4 

£890 A 1^=" ROUGH » " 

£900 H£$=H£$ 

■'::• o i c-. j'!;nT0 730 

£9£0 IF S>1 GOTO 1460 
£930 PRINT 
£940 F'RINT 

£'.960 GOTO £980 

£970 GOTO £9£0 

£ 930 PR I NT " s^R^HOLEW I N^ONE^Kfl^HOLE* I N^ONE5«fl«HCiLE3K I ri»eONE5K3« " 

p y ciCi PR I NT " '^M^'^Miik'^^:^:#:»:^MiiiF:!ff:^3!^^^ " 

3000 PRINT 
3010 PRINT 
30£0 PRINT 
3030 GOTO 1840 

3060 h1$=h15 

3080 GOTO 730 
3090 Dl=375 
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1110 

ii£© 

1130 
1140 

' 1 50 
:160 
ii i'B 
1180 

:!£y0 

;|£?0 

;1 £30 
;l£4y 



:l£c:=y 
:i£70 
:l£80 
;l£90 
:l300 
•1310 
:l3£0 

^1350 

:l3fc-'0 
■'3'^0 
;l380 

:1400 
:l4 10 

;i440 

:1450 

:l4b0 

;i470 

:1480 

;1490 
:1500 

•i Err ■{ ~j 

:• •_! I ■■■-< 



:lbDy 

:1580 
:l5y0 
■;ftFr0 



F-4 

R 1 5= '■ RD JflCEMT Ffl I RWRY = " 

R2$=R1:?: 

GOTO 730 
Di=130 

Hl$="WRTER. " 
h£s=" ROUGH. " 

GOTO 730 
D 1=550 

HlS=Hl$ 

GOTO 730 

y3=-rnr!"~H 

PRINT 

PRINT 

PRIriT"TOTHL PRR FOR THESE "Z" HOLES IS "P9" 5 YOUR TOTAL WAS "^ 

PR INT "MINUS YOUR HflNDICfiP YOUR SCORE IS "S3 

PRINT 

II- S3>CPy+lJ liUTO 3560 

IP S3=fP9+l) GOTO 340ti 

IF S3=P9 GOTO 3440 

IF S3=(P9-13 GOTO 3480 

IF S3=fP9-£3 GOTO 35£0 

PRINT 

PRINT 

PRINT" I DON'T EELIEUE IT! I DON'T EELIEUE IT!! .... 

PRINT 

GOTO 35b0 

PRINT 

PRINT" YOU GOT fl 'BOGEY' FOR THE COURSE." 

PRINT 

GOTO 3560 

PRINT 

PRINT" YOU MfiDE PRR FOR THE COURSE. " 

PRINT 

GOTO 3560 

PRINT 

PRINT" YOU GOT fl 'BIRDIE' FOR THE COURSE." 

PRINT 

GOTU 356ti 

PRINT 

PRINT" ^s YOU ERGLED THE COURSE ^se >■ 

PRINT 

GOTO 3560 

PRINT 

PRINT 

PRINT 

PRINT 

PR I NT "DO YOU FEEL UP TO ANOTHER "Z" HOLES?" 
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ibie INPUT H6$ 

>6£0 IF fl6$="Y" GOTO 496 

!630 IF fl6$="YE:S" GOTO 490 

■■640 PRINT 

ib-SO PRINT 

1660 PRINT 

1670 PRINT 

1680 END 



RUN GOLF 



ft*:s^*; uiEL.COME TO THE COUNTRY CLUE! THIS COURSE IS 
sisss HM EIGHTEEri HOLE ? CHhNPIONSHIP LRYOUT. 

DO 'r'nu iafiNT TO PLFlY H FULL 18 HOLES"^ 

■"•NO 

HOI^i NHNY holes do tOU WANT TO PLRY? <19 



«;«^*^ THE COMMEriTFlTOR WILL EKPLHIN THE COURSE fiS YOU 
»i»;«s PLRY. ENJOY YOUR GAME 5 SEE YOU ON THE 19TH TEE... 

HHRT IS "i'OUR HAND I CAP? (FOR £ HOLES) 

?4 

DIFFICULTIES AT GOLF INCLUDES 

0=HOOK!' i=SLICF, £:=POOR DISTANCE? 4=TRRP SHOTS? 5=PUTTING 
WHICH ONE IS YOUR WORST (ONLY ONE)? 
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-jHrcjc; hP£; jur- CLJJES YOU HflUE IN YOUR BAG 

yhrdrge desired suggested clubs 

P00 TO 3i30 YDS» 
100 TO 200 'f'DS, 



1 TO 



^■ijij MpjT ht the tee uE hole i DISTRMCE 361 YRRDS ? PAR 

or! YOUR RIGHT IS AM flDJflCENT EfllRWflY, 
on YOUR LEET IS ROUGH. 



ImHhT CLUE DO YOU CHOOSE? 
? 1 
SHOT WENT 310 YRRDS . IT' 



■'RRDS EROM THE CUP. 



YOUR BALL 



iRDS OFF LINE„,..IN FAIRWAY 



i.=iHHT CUJB DO 't'OU CHOOSEY 

YOU MAY MOW GAUGE YOUR DISTANCE BY 

PERCENT OF YOUR FULL SWING - FROM .01 TO 1 . WW 

TOO MHCH CLUB. YOU'RE PAST THE CUP. 

SHOT WENT 53 YARDS. IT'S S YARDS ERuN THE CUP, 



YOU ARE Ori THE GREEN 6 EEET FROM THE PIN. 

EUERYONE PLEASE TALK SOFTLY? NOW! 
CHOOSE YOUR PUTT DISTANCE BY POTENCY NUMBER FROM 1 TO 13 

YOU H^O*L*^E^D IT 



'I'OUR SCORE ON HOLE 1 WAo 
TOTAL PAR FOR 1 HOLES IS 
iJERY GOOD A BIRDIE 



4 YOUR TOTAL 



YOU ARE AT THE TEE OF HOLE £ DISTANCE 
ON YOUR RIGHT IS ADJACENT FAIRWAY. 
ON YOUR LEFT IS ROUGH. 



206 YARDS 



•'RR 



ImHAT CLUB DO YOU CHOOSE? 

?16 

SHOT WENT 15: 



YhRDS . IT' 



JR BALL IS 



i'RRDS OFF LINE 



YARDS FROM THE CUR 
. IN FAIRWAY. 
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WHHT CLUB DiJ YOU CHOOSE? 
?iE'0 

YOU MfiY NOW GHUGE YOUR DISTfiNCE BY 
PERCENT OF YOUR FULL SWING - FROM .61 TO 1.80 



SHOT WENT 



44 V'FlRDS . IT'S 



i£ YHRDS FROM THE CUP 



'OU RRE OH THE GREEN 3b FEET FROM THE PIN. 
EUERYONF PLEhSE ThLK SOFTLY. HOW! 
MOOSE YOUR PUTT DISTflHCE BY POTENCY NUMBER FROM 1 TO 1' 

'OUR PUTT IS SHORT. 

■nu ORE Or-I THE GREEN 14 FEET FROM THE PIN. 
EUERYONE PLEfiSE THLK SOFTLY? NOW! 
:H00SE 'i'OUR PUTT BISTfiNCE BY POTENCY NUMBER FROM 1 TO 1: 

'OUR PUTT IS SHORT. 

■OU HRE ON THE GREEN 4 FEET FROM THE PIN. 

ElERYONE PLEfiSE TALK SOFTLY j NOW! 
:iiOOSE YOUR PUTT mSTHNCE BY POTENCY NUMBER FROM 1 TO 1: 

" il". 

Yijij HStO*T-«E^Ti I T 



OUR SijORE ON HOLE 


£ WHS 


OThL PhR for £ 


HOLES IS 


BOGEY. , . . 





YOUR TOTAL IS 



TRLPHR FOP these: 



HOLES IS 



T r i! 



I'OUR HflNDICRP YOUR SCORi 



5 YOUR TOTAL WflS 



DOM'T BELIEUE IT! I DON'T EELIEUE IT!! 



DO 'i-nU FEEL UP TO ANOTHER 



HOLE:: 
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JUDYs 

DFSCRIPTION 

"Hi! I'm Judy", this is how the game starts off. It is a simulated rap ses- 
sion with Judy. Judy is played by the computer. Judy can carry on a fairly 
decent conversation and she listens very well. So the next time you feel 
you would like to talk to someone, try Judy. 



INSTRUCTIONS. 

Instructions are included in the program listing. In order to play just type 

RUN. Judy will ask you a question and your rap session will have begun. 



LIMITATIONS 

Judy will require 7K Bytes of memory for execution. This simulation uses 
string variables extensively for comment storage. A typical rap session is 
presented at the end of the program listing. 
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ji rij'i' 



19 REri THIS IS JUBY 

PM PRINT" HI ! I'HM JUDY" 

oFi PRINT -THIS IS JUST H LITTLE RflP SESSION" 

-10 PR I NT "WHEN YOU ARE REfiDY TO LEfiUE TYPE END" 

50 PR I NT "SO SIT DOWN fiND RELfiX. TELL ME" 

60 PR I NT "HOW ARE YOU?" 

7 i':i I F RND ( -5 ) > . 5 G;OTO 1 1 © 

1 1 ;-;S=0 

I'^iP} INPUT fl5 

170 GOTO 1050 

iSO PRINT 

ISO PR I NT "WHY BIB YOU SRY "h9$ 

200 RETURN 

£10 PRINT 

P£0 PR I NT "DON'T YOU RERLLY KNOW?" 

c'30 C=l 

£40 RETURri 

£60 PRINT"Ynu SEEN QUITE POSITIUE? WHY?" 

£70 K=!:-i) 

£30 RETURN 

wQfi PRINT 

300 PPINT"PERHHPS YOU WOULD RRTHER TRLK ABOUT SOMETHING ELSE' 

3 1 H= 1 

3£0 RETURN 

''-i30 PKINT 

343 pRTf-|T"HPN'T YOU SURE" 

3i:-0 RETURN 

370 PRINT 

330 PR I NT "DOES THAT TROUBLE YOU?" 

390 prTLlRf-l 

400 PRINT 

410 PR I NT "PLEASE GO ON" 



207 



A 2y RE I'URr-i 

43:3 ppiiMT 
459 RETURr-i 

'■"i- '"= ^I,' P r^,. i. f 1 i 

470 PRINT"RRE YOU SURE?" 
4- 80 RETURN 

SiZii PRINT" I SEE? BUT I ' RM NOT SURE THRT I AGREE" 

510 RETURN 

i:r,3|3 ppj|-JT 

533 pp:.TisjT"i?p|hi NOT SURE I UNDERSTfiHD YOUR QUESTION" 

540 RETURN 

550 RRINT 

560 PRINT"WHHT IS IT YOU REALLY WANT TO KNOW" 

;:ETUR 

393 ppjN-.. T binULIi TELL YOU IE I KNEW" 
o0y F'FTURN 

6£0 PRINT"Dn I nrTECT SOflE UNCERTAINTY THERE?" 
i:V53 ppTriT'M.lHY DO YfJU THINK I CAN TELL YOU?" 



^^.90 PR I NT "ARE SUCH QUESTIONS OFTEN IN YOUR NIND?" 

{ i ''■ R'PTURN 

7 59 ^^RINT 

750 PR I NT "CAN YOU THINK OF H SPECIFIC E>^:AMPLE" 

P50 RETURN 

770 PR I NT "WHAT DOES THAT SUGGEST TO YOU?" 

333 prjURN 

300 PRINT 

ti 1 F'R I r iT " HMNNMMNMM = . » . " 

y?0 B=E+1 

£rj0 RETURN 

043 pPTNT 

850 PRINT" PAN HRiJING TROUBLE » PLEASE TALK IN SIMPLE SENTENCES' 

;-;80 RETURN 

870 -PINT 

880 PRINT" DO YOU FEEL STRONGLY ABOUT DISCUSSING SUCH THINGS?" 

890 RETURN 

910 PRINT" I DON'T QUITE UNDERSTAHB YOU" 

920 RETURN 
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930 PRINT 

940 PRINT" PflPl NOT SURE THRT I UNDERSTfiND YOU FULLY" 

950 RETURN 

960 PRINT 

970 PRINT='TELL ME MORE" 

980 RETURN 

990 PRINT 

lyti0 PRINT H9$jfi9$ 

1010 RETURN 

10£0 PRINT 

1030 PRINT "WHY" 

1040 RETURN 

1050 If- J=l 'jOTO 1090 

1060 GOSUE 180 

1070 J=l 

1080 GOTO 150 

1090 IF fl$="I DONT KNOW" GOTO 1370 

1100 IF m="l DON'T KNOW" GOTO 1376 

1110 IF fl$="OK" GOTO 1420 

11£0 IF m="O.K." GOTO 1430 

1130 IF H$="0 K" GOTO 1440 

1140 IF HS="flLL RIGHT" GOTO 151© 

1150 IF H*:="WHY" GOTO 153© 

1160 IF H£="YES" GOTO 1550 

1170 IF H$="NO" GOTO 1630 

1180 IF H$="Y" GOTO 1550 

1190 IF fl$="N" GOTO 1630 

1800 IF H5="BEChUSE" GOTO 1690 

!£10 IF h£="ChUSE" goto 1690 

1?£0 IF H5="riEBY" GOTO 174© 

1£30 IF HS="mYBY" GOTO 1740 

1240 IF H$="I DONT THINK SO" GOTO 176© 

1£50 IF m="I DON'T THINK SO" GOTO 176© 

1260 IF H$="NOT AT ALL" GOTO 178© 

1£70 IF HS="flLWHYS" GOTO 18©© 

1£80 IF H5="ST0P" GOTO 184© 

1£90 IF m="l DON'T REALLY KNOW WHY" GOTO 188© 

1300 IF H$=" SOMETIMES" GOTO 186© 

1310 IF fi^="I DONT REALLY KNOW WHY" GOTO 188© 

13£0 IF H*="SE^^:" GOTO 191© 

1330 IF H$="END" GOTO 199© 

1340 IF LENCA$)>£5 GOTO 1720 

1350 IF LEN(H$)<£ GOTO 1S£0 

1360 GOTO £080 

1370 IF D=l GOTO £54© 

13o0 IF K=£ GOTO £040 

1 390 K=K+ 1 

1400 GOSUE £10 

1410 GOTO 150 

i4£0 GOTO 1430 
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1 440 
145ei 
1 46.0 
1 470 
1480 
1 490 
1500 
1510 
15S0 
1 530 
1 540 
1 550 
1 560 
1 570 
1580 
1 590 

1 600 

1610 
16£0 
1 630 

1 640 
1 650 
1 660 
1 670 
1 680 
1 69Gi 

1 700 

1710 
1 720 
1 730 
1740 
1 750 
1 760 
1 770 
1780 
1 790 
1 8610 
1810 
1 8£W 
1830 
1840 
1 850 

1 86ei 

1 870 
1880 
1 890 

1 900 

1910 
1 9£0 
1 930 
1 940 



1460 



Cd' 



i:30 



1570 
1610 



1780 
1760 

1840 



IF fl=l GOTO 
GOTO 1480 
GOSUE 7£0 
GOTO 1£0 
IF G=l GOTO 
GOSUB 760 
GOTO 150 
GOSUB 7£0 
GOTO 150 

ri=N+i 

GOTO £4>:0 

IF H>0 GOTO 

GOSUB 7£0 

IF K<1 GOTO 

K=K-1 

GOSUB 960 

GOTO 150 

GOSUB £50 

GOTO 150 

IF fi=l GOTO 

IF L=l GOTO 

L=L+1 

IF C=l GOTO 

GOSUB £90 

GOTO 150 

IF D=l GOTO 1740 

GOSUB 10£0 

GOTO 150 

GOSUE 840 

GOTO 150 

GOSUE 7£0 

GOTO 1£0 

GOSUB 330 

GOTO 110 

GOSUE 490 

GOTO 1£0 

GOSUE £50 

GOTO 150 

GOSUB 870 

GOTO 150 

GOSUE 370 

GOTO 150 

GOSUE 610 

GOTO 150 

GOSUB 800 

GOSUE 760 

GOTO 150 

IF E=i GOTO 

GOSUE 870 

GOTO 110 

GOTO 1970 



GOTO 1950 
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1950 GOSUB yy0 

1960 GOTO 150 

1970 GOSUB 680 

1980 GOTO 150 

1990 F-Rir-IT 

£000 PRINT" IT WnS NICE TO SEE YOU. COME BACK RGfllN. . " 

£010 PRINT" BYE" 

£0£0 PRINT 

£030 GOTO £64ti 

£;040 K=0 

£050 GOSUB £90 

£060 GOTO 150 

£070 REM ri IS THE FLRG FOR UNKNOWN RNSWER 

£0y0 M=M-^l 

£090 IF M=l GOTO £190 

£100 IF Fl=£ GOTO ££10 

£110 IF ii=3 GOTO ££30 

£i£0 IF M=4 GOTO ££7© 

£130 IF M=5 GOTO ££90 

£140 IF M=:6 GOTO £310 

£150 IF M=7 GOTO £330 

£160 IF M=S GOTO £350 

£170 IF ri=9 GOTO £37© 

£180 GOTO £39£i 

£ 1 90 GOSUB 1 80 

££00 GOTO 150 

££10 GOSUB 400 

£££0 GOTO 150 

££30 GOSUB 5£0 

££40 IF G=l GOTO 1£0 

££50 GOSUB 550 

££60 GOTO 150 

££70 GOSUB 610 

££80 GOTO 150 

££9tZi GOSUB 960 

£300 GOTO 150 

£310 GOSUB 900 

£3£0 GOTO 150 

£330 GOSUB 930 

£340 GOTO 150 

£350 GOSUB 460 

£360 GOTO 150 

£370 GOSUB 410 

£380 GOTO 150 

£390 ri=0 

£',400 GOSUB 960 

£410 GOTO 70 

£4£0 REM N IS THE FLRG FOR THE RNS. WHY 

£430 IF N=i GOTO £5£0 

£440 IF N=£ GOTO £540 

£450 IF H=3 GOTO £560 
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£460 IF N=4 GOTO £580 

£470 IF N=5 GOTO £608 

£480 IF N=6 GOTO £6£0 

£4"3€i H=ei 

£500 GOSUE 630 

£510 GOTO 70 

£5£0 GOSUB 400 

£530 GOTO 150 

£540 GOSUB 580 

£550 GOTO 150 

£560 GOSUE 430 

£570 GOTO 150 

£580 GOSUB 370 

£590 GOTO 150 

£6610 GOSUB 99ti 

£610 GOTO 150 

£6£ei GOSUE 640 

£630 GOTO 150 

£640 END 



^1] i ''HM JUIi'i" 
THIS IS JUST R LITTLE RFlP SESSION 
WHE:ri YOU FIRE F:EflIiY TO LEfiUE TYPE Er^Tl 

SO SIT .DOWN HMD RELfl;:-^:. TELL ME 
HOW FIRE YOU? 
?FiriE 

PLERSE GO OH 
?WHY 

I MOULD TELL YOU IF I KNEW 
?UK 

CRH YOU THINK OF R SPECIFIC EXHnPlE 
?Hn 

RRN'T '•.'CiU SURE 
?I DOl-IT KNOW 

WHY mil YOU SHY I DONT KNOW 
?I DONT KNOW 
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nOri'T ■.'OU REflLLY KMOW? 



Criri YOU THINK OF fi SPECIFIC EKflMPLE 

TELL ME MORE 
?1-JMY 

PLERSE GO OH 

■"■WhlY 

I UOULD TELL YOU IF I K:NEW 

WHHT HOES THRT SUGGEST TO YOU? 
?NOTHIMG 

MHY run YOU SHY riOTHING 

•'■I'lHY r^^lT 

F'L.EhlSE GO OH 

■POK- 

I'RM MOT SURE I I iMHERSTflrW YOUR QUESTION 

?FIME 

WHY nin YOU SRY FINE 

?BECRUSE 

MHY 

?cru£;e: 

I'li-fr' 

?MiTi' r^^T 

!.#l'.' nil! YOU SRY Ml-ri' HOT 
'■OK 

MHRT nOES THRT SUGGEST TO YOU? 

?EMn 

IT MRS NICE TO SEE YOU. CONE BRCK RGRIN. , 

BYE 
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LINE UP: 

DE SCRIPT ION 
This is a little number game. The computer selects a string of digits in 

some random sequence. The object of the game is to put the numbers in digit 

sequence from left to right in the least number of moves. It may sound ^ery 

simple but just wait until you have tried it once. 



INSTRU.CT.IQ.M.S.. 

The program listing contains complete information on user instructions as 

well as subroutine information. During program execution all necessary in- 
structions will be typed out. Additional inputs will be prompted for by 
the program. 

LIMITATIONS 

This game will execute in less then 4K Bytes of memory. The game requires 
no special Basic statements and should execute in standard Basic without 
any difficulties. 
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■"it- r •- 



■PIN' 



"rFiB I. 



lf\] ? i I »:*!»:»: lime UF' ^^'^ft*;*;" 

19) ? "fl GHriE: OF skill" 

K IF THEY WRNT INSTRUCTIONS ^^^ 



H030 PPIriT TflJ 

^050 PRIriT 

0060 PRINT 

0070 PRINT" Dn van hmtr 

0080 INPUT X$ 

0090 IF rt$="NO" THEN 4£0 

01,00 IF ;K$="YES"' Ti-IEN 140 

0110 PRINT" Plerse RNsyER YES or NO !" 

01c;0 PRINT" FlNSbJER"? 

0130 GOTO 80 

!:,.' J. '-'rk) KCri 

0150 REN ^"^^ NOW PRINT THE INSTRUCTIONS IF REQUESTED «S5K 

0160 REN 

0170 PRINT 

0180 PkINT" This is the uiFiFiE; dp i INF UP, Td iuin rll mpu hhme" 

0190 F'RIliT" TD DO IS RRRRNDE R LIST OF NUHEERS INTO NUriERICRL' 
0000 F'RINT" ORDER FRDR LEFT TO RIESHT. YoiJ SPEEIFV THE LENGTH" 
0810 PRINT" OF" THE LIST? UP TO TUENTV NUFIEERS IS DKHV. " 

FiPPy F'RINT" To NOUEs You tell re hqu firnv nurbers to remerse" 
0830 PRINT" (counting frdh the leftJ . For ExRmPLEj If the" 

0840 PRINT" current list iss " 

0850 PRINT 

0860 PRINT" £ 3 4 5 1 6 7 8 9" 

0870 PRINT 

0880 PRINT" RND VDU remerse four? the result LI ill ees " 

0890 PRINT 

0300 PRINT" 5 4 3 8 1 6 7 8 9" 

0310 PRINT 

8380 F'RINT" noui? if mqu remerse fimes vnu uill WIN ! " 

f:i330 PRINT 

0340 ppirjj" 1 £ 3 4 5 6 7 8 9" 

0350 F'RINT 

0360 PRINT" I UILL bJRRN S^DU NOU? THIS GRRE IS MERM SIRRLE" 
0370 PRINT" E:UT IT RRM BEEOnE HRBIT-FORR I NG. RnM TIRE MPU" 
0380 PRINT" UHNT TO QUIT JUST REMERSE £1 (ZERDJ . " 

0390 PRINT 

0400 PRINT 

0410 REN »^ft* RSK FOR SIZE OF LIST '^■'^^- 

0480 PRINT 

0430 F'RINT" Hoki rrnm nurbers do mou urnt in mdur list"? 
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0440 IMPUT M 

0450 IF r^ > 1 THEri 490 

|-i4^.P, ppiHT" 1 ' ! MOT Fl UERY BIG LIST ! ! !" 

0470 PRINT" PLEFlSE INPUT H LARGER LIST"? 

guiyfi Qij TO 440 

0490 IP N <=£0 GOTO 53© 

0500 PRINT" !!! MRXinum list size is £8 !M" 

0510 PRINT" Hau pihnm"? 

05£C;i GOTO 440 

Cj^l40 PE|v| ssKW GENERATE LIST OF ^V RflHDOM NUMBERS 5K=«3« 

0550 fl i i ) = I NT f i N- 1 I '^RNIi C - 1 3 1 + 1 

05f:.0 FOR K = £ TO N 

0570 fl!K) = INT(N«RNDi-in+l 

0580 FOR J = 1 TO K-1 

Pi 590 IF fl I K :i =H C J ) THEN 570 

06001 NEXT J 

0610 NEXT !< 

06£0 REN 

0630 REM :«*"* PRINT THE INITIAL LIST AND START THE GAME "^"^ 

0640 REM 

0650 PRINT 

0660 PRINT" Here ije gd . . . The: uist is :" 

0670 T=fi 

0680 GOSUE 1040 

0690 PRINT" HpU FIRNM SHHL.L. I REMERSE " 5 

0700 INPUT R 

0710 IF R=0 THEN 1086 

07£0 IF R <= N THEN 758 

0730 PRINT" ! ! ! Thht's top nHNM» Yau chn remerse ht nnsT"?N 

0740 GOTO 690 

0750 T=T+1 

0760 REM 

0770 REM ^^^ REUERSE 'R' NUMBERS AND PRINT THE NEW LIST ^*'»« 

0780 REM 

0790 FOR K= 1 TO INTi:R.--£j 

080101 Z~-A(K) 

0810 Hi;K1= fliR-K+11 

08£0 A(R-K+i)=Z 

0830 NEXT K 

0840 GOSUB 1040 

0850 REM 

0860 REM '^^-'^^ CHECK FOR A WINNER «** 

0870 REM 

0880 FOR K.= 1 TO N 

0890 IF A(K) <> K THEN 699 

0900 NEXT K 

0910 REM 

09£0 REM *-:5«'« IF THIS POINT IS REACHED THE PLAYER HAS WON »^«« 

0930 PRINT" *^*"*-« CONGRATULATIONS 5«5K-«k" 

0940 PRINT 
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096ti 
0970 
0980 
0990 

1 000 
1010 
10£0 
1 0O0 
1 040 
1 050 

1 060 

1070 

1030 

1 090 
1100 
1110 



Ynu HR'.,'E WON IN dnlm";!;" MOUES !! 



PRINT" 

PRINT 

PRINT" Wrnt rn trv rgrin"? 

INPUT y$ 

IF K$ ="YES" THEN 420 
STOP 
REM 

REN s*^*: SUBROUTINE FOR PRINTING THE LIST OF NUMBERS "«5KW 
REM 
PRINT 

FOR K= 1 TO N 
PRINT H(K) ? 

ne:-:t k 

PRINT 
PRINT 
RETURiH 
END 
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PONY: 

DE SCRIPTION 
In this game the computer simulates an authentic horse race. Any number of 

players may bet on the race. The betting odds are simulative of paramutuel 

betting. The race results are narrated by the computer all the way around 

the track. 



INSTRUCTIONS 

This program contains all necessary prompts and instructions for immediate 
execution. Detailed program information may be obtained by listing the pro- 
gram. 



LIMITATIONS 

The entire race can be run in about 7K Bytes of memory. A sample race is in- 
cluded following the source code listing. 
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,:;0 F:EM THIS IS fl HORSE RACE GAME 

-r-.-PT- T_JT^ r;pif,i|r Qp QHRMCE THE COMPUTER RUNS fl HORSE" 
■_, -^IrnT-'-Hfr rr.F yuU? hNY NUMBER OF PLflVERS CRN BET ON THE RESULTS," 

'-. I r . ,'■-] ■;-; 1 o vjy 

r 7- -„ ^^, ,|_.|._^ RHCE? ONE MILE FOR 3-YR OLDS? POST TIME £s34" 
' ' '-~ l-""-!? Ll~J 110 

[_._ ri^T'jf -I'f::- PpiCE STARTS IN 3 MIN. PLACE YOUR BETS" 
' 1 "" - "^ 1 1" 'T 
. _ '-FT _ 7^1 
. :'- - - i"- ' ' 1 "AN U' WAR 
_:: -z J- -.■=. CITATION 

I - -'-■:-""-■ ..H-;;'LMHflY 

i - -_ ' -IW'" i '--HShULT 

. " --r """ .l-i^ 7TSCUIT 

J ' --yr 2"'r LFLLFrn' fo;k 



3! 


1 


1! 


4: 


•1 
1 


n 


cr tt 


1 


1! 


85 


i 


li 


y: 


i 


11 


11". 


X 


li 


r-Ci - 


1 


t! 



3A; 1 



■.•-^ i. 



■ \. 



I ' -'L'- 1 jO"" J ■^£0 

-^T,,-M|rf_rF-L. HfiRSE (1-8)? WIN? PLACE J SHOW (IsEsS)? AND THE WAGER." 

-'-•!-■ "F; .AMPLE; 3!l?100 (FOR HORSE NO. 3j WIN? $106 WAGER)" 



r p - - |T 



.1 



: ■^ I 'r I' 7 T I E. I , I 

- -1'' ^ ■- ~ I -, I -, T r 

"0 I'^ T I'r I 1 T'-; 

_^ Ll^ ._ 'Si^Ac'; 

r" I~ i'. : i ? T- 

£.'_"| IF I. ' 



I :■ J J i-, i I S J 

I INT (T (Si ) ) 
■iFr! 390 
•;FN 390 

I INT (U(S) ) ) 
^c f ' 390 
I 3 Ti-^Er^ 4£0 

"hOPbE r -UMBER OR WIN-PLACE-SHOW BET IN ERROR? BET AGAIN." 
-1 v-l~ _■.■! , 3 £t'0 

410 INPUT ",i(S! 

430 I F ' ,' ( S J -£=AES ( U ( S J -£ ) THEN 450 

430 PRINT"EET MUST BE MORE THAN $S AND LESS THAN 53805 NOW HOW MUCH" 
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44a 
45y 
460 
470 
4h0 
490 

500 

510 

5c'0 
530 
540 
550 
560 
■„ ' ■ 'I..- 
580 
590 

600 
S 1 

6c:0 
630 
640 
650 
660 
6F0 

r",S'0 



i -r '■■_! 

750 
760 



800 

880 



r .4 : 



-iM 



1^, 

860 
8 P0 
880 
c;90 

Si 00 

9 1 
980 
930 
940 



GO TO 410 

IF U!;S)>300 THEN 430 

PRINT 

PRINT 

PRINT "THE RfiCE IS RBOUT TO START? RNY MORE BETS 

PRINT 

INPUT Y¥ 

IP Y<="Y" GOTO £40 

IF t5="tES" go 10 £40 

PRINT 

PRINT 

PRINT " THEY'RE OFF RHP RUNNING ! ! M " 

PRINT 

LET N(0}=6£»£5 

LET n(lJ=60 

LET N ( 3 ) =-500.-"'9 

LET M(£i =350/6 

LET0M(4:i=55 

LET M(5)=650..--l? 

LET Mr6)=1100.-£1 

LET M ( 7 ) = 1 60O-"3 1 

LET fi J =6 

LET U(£)=8 

LET 83) =10 

LET 014) =16 

LET 01:5) = 18 

LET i" 6 ) =££ 

LET 0(7) =40 

LET i 8 ) =60 

FCiR N-y TO 7 

LET H(N}=0 

NEXT ri 

LET K=:0 ■ 

l„.l_ ! K'J — X 

LET J=0 

LET N=:3«T i 1 ) -Li ( i J 

IF ri>0 THEN 880 

LET N=i 

FOR0Z5=S TO 5KUi3)+M 

LET Zi=RNDiZ13 

NEXT Z5 

FOR Z5=l TO 500000 

IF INT (Z5.^N)-G<>0 THEN 1040 

LET H ( J j =H I. J ) +RNII ( Z 1) *'r-1 C J ) 

LET J=J+1 

LET G=G+-i 

IF JOS THEN 1030 

LET J=0 

GO SUB 1710 

LET l!=HiEi03-li 

LET K=K+1 



fYES OR NO) 
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950 PRINT 

960 IF K=8 THEN 1000 

97'0 GO SUE 2£80 

980 GO SUB 1950 

990 GO TO 1040 

1000 PRINT" MS THEY CROSS THE FINISH LINE!" 

1010 LET Z5=500001 

1080 GO SUE 1950 

1030 LET Z1=RND(Z1) 

1040 NEaT Z5 

1050 PRINT 

1060 PRINT 

1070 PR I NT" $8. 00 PnPIMUTUEL BET PRrS: " 

1080 PRINT " WIN PLACE SHOW" 

1090 LET K=0 

1 100 FOR 1=0 TO £ 

1 1 10 GO SUE 1990 

1 180 LET J=i 

1130 IF J=0 THEIN 1810 

1140 PRINT " "; 

1150 IF 1=0 GOTO 1190 

1160 PRINT " "? 

1170 IF 1=1 GOTO 1190 

1180 PRINT " "'. 

1 190 LET .J=J-l 

1800 GO TO 1130 

1810 FOR J=i TO £ 



i_i_ 



-r 



L=I+I+J 



1830 IF Jr-ii THEN I860 
1840 LET R=l 
1850 GO TO 1870 

1870 LET EiLJ=l„5+.0i*;iNTi (SfEil) )^-R+RNDi:Z13 3»;i@0i 

1 8800LET H 1 I L J = i „ 4 3 *^U C S-L ) 

1890 LET H8(L3=ECL}*^H1 (L) 

r300 LET H3iLJ=(0.011+H£lL) 

1310 LET H(L 1 = 1:0. 01 )»;INT(100«H3i:L11 

1380 PRINT HlL) I 

1330 ne;kt J 

1340 PRINT 

1350 NEXT I 

1360 PRINT 

ISi-'O LEi Q=0 

1380 FOR J=l TO S 

1390 PR I NT "BET NO. " ? J 

I'^iOO LET P=0 

1410 FOR 1=0 TO 8 

14c;0 IF Hi: 1 3 <> T(J3 THEN 149w 

1430 IF Uj:J3< = I then 1548 

1 440 LET h - ( , 1 3 »^ I NT f i U ( J 3 '^SQ 3 5SH ( I + 1 +U f J 3 - 1 3 3 

1450 PRINT"YOU COLLECT" ? P? "ON "? 



221 



1460 GO SUE 1990 

1470 PRINT 

1480 GO Tu 1560 

1490 r-lE>::T I 

1500 PR I NT "TERR UP YOUR TICKET ON "'■ 

1510 FOR I = 3 TO 7 

15S0 IF ECI) = T(J3 THEN 1468 

1530 NEKT I 

1540 PR I NT "NEXT TIME? PURCHASE fl SHOW TICKET ON 

1550 GO TO 1460 

1560 LET Q = Q+P-UiJi 

1570 NEXT J 

1580 IF Q-:;© THEN 1610 

1590 PRINT" YOUR TOTfiL WINNINGS RMOUNT TO ^-'SQ 

1600 GO TO i6£0 

1610 PRINT" YOUR TOTfiL LOSSES AMOUNT TO $";flBS(Q:i 

ibS0 PRINT 

1630 PRINT 

1640 PRINT 

1650 PRINT "*^^ DO YOi i WISH TO TRY IT AGAIN '^-^■" 

1660 PRINT 
■ ""' INPUT R$ 

IF R$=''Y" GOTO 60 

IP Pi:="YES" GOTO 60 

STOP 

LET Q=0 

FOR L1=0 TO 7 

LET E (LI 3=0 

LET HI LI 1=0 

NEXT LI 
1760 FOR Li=0 TO 7 
1770 FOR L£=0 TO 7 





~' r 'C' 




680 




690 




~? !7-:f "i 




710 




"? ;-'•"> 




730 




740 




f'^i"? 



^ It- 



T-IEN 1880 



00 



IF HiLiJOHiLSi THEN 1880 
PR I NT "RERUN PLEASE" 



1880 
1 830 
1 840 

J. '_'-_'■:.' 

.L ■..:■ I =1 = 

1 380 
1 8'-^-0 

1900 

1910 
1 9PB 
1 930, 
1 940 
1950 
i960 



IF HiLlXHiLS) THEN 1348 

LET Hi;Lli=RiLlJ+l 

NEXT L£ 

NEXT LI 

FOR LI =8 TO 1 STEP -1 

FOR L£=0 TO 7 

IF fliLSJOLl THEN 1980 

LET E(Q!=L£+1 

LET Q=Q+1 

NEXT L£ 



RETURN 
PRINT" 

PRINT 



POS . HORSE 



LENGTHS BEHIND" 
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1970 FOR I=y TO 7 

1980 PRINT 1+15 

1990 IF Ed 1=1 THEN ££80 

£000 IF Ea)=£ THEM £188 

£010 IF Eili=3 THEN £160 

£0£0 IF BfIJ=4 THEN £148 

£030 IF B!l)=5 THEN £1£0 

£040 IF EC I) =6 THEN £180 

£050 IF E CI 1=7 THEN £88© 

£060 PRINT"CORLTOWN "? 

£070 GO TO ££10 

£080 PRINT-STYMIE "? 

£090 GO TO ££10 

£100 PRINT"GHLLHNT FOft" ? 

£110 GO TO ££10 

£i£0 PPINT"SEH BISCUIT"; 

£130 GO TO ££10 

£140 PRINT"HSShULT "i 

£150 GO TO ££10 

£160 PRINT"WHIRLHWfiY "? 

£170 GO TO ££10 

£180 PRINT"CITHTION "? 

£190 GO TO ££10 

££00 PR I NT "MAN O'HHR "j 

££10 IF K=0 THEN ££70 

£££0 IF I>0 THEN ££50 

££30 PRINT 

£',£40 GO TO ££60 

££50 PRINT ,lsiNTCB-HCBCI1-n) 

££60 rCKT I 

££70 RETURN 

££80 IF K=i THEN £360 

££90 IF K=£ THEN £380 

£300 IF K=3 THEN £400 

£310 IF K=4 THEN £4£0 

£3£0 IF K=5 THEN £440 

£330 IF K=6 THEN £460 

£340 PRINT" COMING BONN THE HOME STRETCH" 

£'350 GO TO £47y 

£360 PRINT" fiS THEY BRERK FROM THE GfiTE" 

L... -_' ! *"-'■ 'J2'J' i -— ' I H" i *!.' 

£330 PRINT" FIT THE QUfiRTER-MILE POLE" 

£390 GO TO £470 

£400 PRINT" RFTFR THREE FURLONGS" 

£410 GO TO £470 

£4£0 PRINT" RT THE HRLF" 

£430 GO TO £470 

£440 PRINT" RT 5.--8 OF fl MILE" 

£4'D0 GO lO £470 

£460 PRINT" ROUNDING THE CLUBHOUSE TURN" 

£470 RETURN 
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RUM F'UliY 



111 THT;=; GHflE OF CHflHCE THE COMPUTER RUNS Fl HORSE 

RACE FOR you; HNY MUriBER OF PLRYERS CAN BET ON THE RESULTS 

SEOEHTH RfiCE? ONE MILE FOR 3-YR OLDS? POST TIME £s34 



1 


MAN O'WflR 


3 ' 1 


c. 


CITRTION 


4 °. 1 


"■"' 


WHIRLflWRY 


•J « 1 


4 


RSSnULT 


-"i B 1 


5 


SEfi BISCUIT 


9s 1 


6 


GflLLRNT FOX 


llsl 


i"" 


STYMIE 


£0 : 1 


9 


COflLTOWri 


30 • 1 



BFT NO. 1 

ENTER HORSE (1-8 I, W I N 5 PLfiCE ? SHOW (IsE^S)? AND THE WRGER, 

E>::AMPLE-. 3jijl00 IFOR HORSE NO. 3? WIN? $106 WRGER) 



:• '-r ? u. 



. ? 1 -I 



THE RACE IS ABOUT TO START? ANY MORE BETS? (YES OR NO) 

?f-!u 

THEY'RE OFF AND RUNNING ! ! ! ! 
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m THEY EREFiK FROM THE GRTE 

POS» HORSE LENGTHS BEHIND 

i #5 SER BISCUIT 

£ #7 STYMIE 1.1 

3 *£ CITRTION £„3 

4 #1 MAN O'WflR a,f. 
'5 m COflLTOWN :-; 
e. #3 WHIRLfiWRY 3, 1 
7 #6 GRLLRNT Fo^ 4. 1 
3 #4 HSSRULT 4.4 

AT THE QUHRTER-MILE POLE 

PUS. HORSE LENGTHS EEHINB 

1 #7 STYMIE 

£ #1 MRN O'HRR .5 

3 #5 SER BISCUIT £.6 

4 #£ CITRTION 4.£ 
':i ftp CORLTOi'iN 4.5 
b #4 RSSRULi" 5.4 
7 #3 WHiRLRHRY 5.5 

3 #b GRLLRNT FOIK 7.3 

HFTER THREE FURLONGS 

PUS= HORSE LENGTHS BEHIND 

1 #1 MRN DU'WR 

£ #7 STYMIE .9 

4 #3 CORLTOMN 5.4 
~j #5 SER BISCUIT 7.4 

6 m HSSRULT 8.4 

7 IK. GRLLRNT F0>^ 9 
3 #3 WHIRLRHRY 9.9 

fir THE HALF 

POS. HORSE LENGTHS BEHIND 
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ROULETTE: 

DESCRIPTION 

This is a computer simulation of the game of Roulette. Only one player may 
play or bet with the computer but outside betting can be done if there is 
more then one player. The computer spins the ball and keeps score on the 
player's winnings or losses. 



I NSTR U CTIONS 

The game is self instructing and contains all necessary information to play. 



LIMITATIONS 

This program will run in 5K Bytes of memory without any problems in any Basic 

speaking computer. 
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pri! ii 



. 



HI: 



S THE 



iME OF ROULETTE 



1 1 o 

1 30 



1 60 

1 90 
£05 



£65 

£80 
£95 



340 



40y 
4 1 5 
430 
445 
460 

A — 'C7 

4 1- _1 

490 

C: .-". ET 

- ■ ':J „• 

535 
550 

565 



:im "WELCOriE TO THE GRME OF ROULETTE' 



595 

.■" 4 ;"- 



PPIHT 
PR I NT 
INPUT 

IF HS- 

IF H^ 

I F H5-' 

PRINT 

GOTO 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
I F H$ 

T C p-i- 

GOTO : 

pp I f-ij 
PRINT 



"WOULD YOU LIKE INSTRUCTIONS 

m 

■"YES" THEN £65 

•"t" THEN £65 
="N" THEN 460 
="N0" THEN 460 

"RNSWER - YES OR NO - PLEASE! 
145 



YES OR NO "5 



'NUMB' 
'THE 
' NUNEi 
'REPR 
'40 R 



THIS GAME YOU HRE HLLOWEH TO BET ON INDIUIDURL" 
ERS? NUMBER SETS? OR uHD OR EUEN NUMBERS. " 
NUMBERS GO FROM 06 TO 36, YOU BET BY ENTERING fl" 



ER BETWEEN © fiND 44. THE NUMBERS 6 
ESENT THEMSELUESs AND 37 REPRESENTS 
ERRESENTS EUEN 



'44 

' 00 



BETS 
BETS 

p p- T" r 

BETS 
BETS 
S NOT 



THE 
THE 
THE 
THE 
THE 



NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 



INCLUDED 



41 

SET 
SET 
SET 
SET 
SET 
WHEN 



REPRESENTS 



FROM 
FROM 
FROM 
FROM 
FROM £5 
YOU BET 



1 
19 

1 
13 



TO 
TO 
TO 
TO 
TO St 
ODD. 



UDD 
IS" 
36" 
1£" 
£4" 



TO 36' 
00 » " 
BETS 



"IF YOU WOULD LIKE A PRINT OUT OF 
"TYPE THE WORD PRINT"? 

="PRINT" GOTO 5S0 
="p" GOTO 580 



rWE TABLE" 



^!<!>:!0:!<>:i^i<>:!^^'%%%r$:%jK%%%%%%':^3Kj^%%9Ki^%i^%% " 



6' 



E5C£3= 

PRINT 

PRINT 



(1) 



y 



H!~1 S: " 



PRINT 



B$ I 1 j 
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715 FOR 1=1 TO 3 

730 U=U-^3 

7 45 PR I m B-5 i £ ) ; U J B$ ( £ ) 5 U+ 1 1 B$ ( £ ) ; IJ+£ ; E$ ( £ ) 

768 PRINT B$fn 

775 NEXT I 

790 FOR 1=1 TO 9 

805 U=U+3 

8£0 PRINT E:?r3) 5U3B$(3) JU+i;E$C3}?U+£;E5:f3} 

835 PRINT E^ili 

850 ne:-:t I 

865 PRINT 

880 PRINT 

395 PRINT "HOW MUCH MONEY DO YOU HRUE TO SPEND"? 

910 INPUT i=!5 

985 G=G4-1 

940 IF G>5 GOTO 985 

955 PRINT "PICK YOUR BET NUMBER^ i.Q TO 44)"? 

970 uOTO 1000 

985 PRINT "WHRTS YOUR NUMBER"; 

1000 INPUT B 

1015 IF B>44 GOTO 9S5 

1030 IF B<0 GOTO 9£5 

1045 IF G>5 GOTO 1090 

1060 PRINT "HOW MUCH MONEY DO YOU WANT TO BET THIS TIME"? 

1075 GOTO 1105 

1090 PRINT " HMOUNT !"? 

1105 INPUT C 

11£0 IF h5=C goto 1195 

1135 IF H5>C GOTO 1195 

1150 PRINT "YOU DON'T Hfl'.C THRT MUCH MONEY!" 

1165 PRINT "THE MOST YOU CRN BET IS "flS" DOLLARS." 

1 1 80 GOTO 1 060 

1 1 95 ri= I riT i: rnd c - 1 ) « 1 00 j 

IS 10 IF N>37 GOTO 1195 

1££5 jF B>37 goto 1398 

1£40 IF E=N GOTO 1338 

1£55 H5=H5-C 

r£70 IF fl5>0 GOTO 1380 

1£85 GOTO 1600 

1300 PRINT N" YOU LOST BUT YOU STILL HRUE "R5" DOLLARS LEFT." 

1315 GOTO 9£5 

1330 D=35*C 

1345 h5=h5+D 

1360 PRINT N" YOU »:« WON '^^- i! NOW Yd i HRUE "RF." DOLLARS." 

1375 GOTO 9£5 

1390 IF i::>39 GOTO 17£0 

1405 IF E=38 GOTO 1555 

14£0 IF N>18 GOTO 145© 

1435 GOTO 1465 

1450 IF N<37 GOTO 15£5 

1465 h5=h5-C 
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1 480 
1495 
1510 

■J £:r-->cr 

1540 
1555 
1570 

^ f_-. „__. 
1. JC'-J 

1 690 

1615 

1 660 
1675 
1 690 
1 705 
17S0 
1735 

1765 



IF h5>0 goto 1510 

GOTO 1600 

GOTO 1300 

fl5=H5+C 

GOTO 136ei 

IF N>18 GOTO 1465 

IF N>36 GOTO 1465 

GOTO 1525 

PRINT H" YOU LOST RHD ARE OUT OF MOHEY. . . " 

PRINT 

PRINT 

PRINT "WOULD YOU LIKE TO PLOY IT nCfllN. (YES OR N03 "J 

INPUT Z$ 

IF Z$="YES" GOTO 460 

IF Z$~"Y" GOTO 460 



1780 

■i -'01=; 
J. i .■•_- 

1810 

1 8£5 
1 840 
1 855 



GOTu 8080 

IF E>41 GOTO 1855 

Y=i;N/-£1-INT(N.--£1 

IF B=41 GOTO 1795 

IF Y>.01 GOTO 146!: 

IF N=37 GOTO 1465 
IF N=0 GOTO 1465 
IF Y>.0i GOTO 15£': 
GOTO 1465 
IF E=4£ GOTO £005 
IF E=43 GOTO 1945 



1 885 


i r ■ 1 .• 


•■£4 GOTO 


1915 


1 900 


GOTO 


1465 




1915 


IF N= 


=37 GOTO 


1465 


1 9m 


GOTO 


£050 




1 945 


IF n; 


vl£ GOTO 


1975 


1 960 


GOTO 


1465 




1 975 


IF N; 


>£4 GOTO 


1465 


1 99£i 


GOTO 


£050 




£005 


IF N; 


^•0 GOTO c 


::035 


£0£0 


GOTO 


1465 




£035 


IF N; 


■-1£ GOTO 


1465 


£050 


FlD=U«£+H5 




C*'i"''1» _- 


GOTO 


1360 




£080 


END 
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SKY DIVER; 

DESCfilEIiPN 
Sky Diver is a simulated parachute jump on any planet. The object of the 

game is to free fall as long as possible before opening your chute. In 

order to make it interesting your chute is operated by a timer, which must 

be set Before you jump. 



instbuchqms 

List the game for detailed instructions. This game is self prompting and will 
ask for all required entries. 



L I MnATIQN S 

There should be no problem running this program, providing it is on a Basic 

speaking computer with 5K Bytes of available program memory. 
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sk;Y ijiijrR 



Ml© PPIMT "iC:LCOriE TO 'SKY DIUER' — THE GAME THAT SIMULATES H PfiRRCHUTE" 
0c'0 PRIMT "JUMP. TRY TO OPEN YOUR CHUTE RT THE LRST POSSIBLE" 
030 PRINT "MOMENT HITHOUT GOING SPLRT. YOU'LL WIN IF YOU DON'T" 

040 PRINT "OPEN YOUR SHOOT UNTIL YOU'RE WITHIN 1080 FEET." 

050 PRINT 

M 70 H 1 = I NT i 900 1 ^'^RNIi C - 1 ) + 1 000 ) 

0£!0 U = 

i£:u PRINT "SELECT YOUR OWN TERMINRL UELOCITY (YES OR NOl"? 

130 INPUT Hl$ 

140 IF hl> = "NO" THEN £30 

150 IF m< = "YES" THEN 180 

160 PRINT "'YES? OR 'NO' PLERSE"? 

170 GOTO 130 

180 PRINT "WHRT TERMINAL UELOCITY CMI.--HR:i " 5 

190 INPUT Ul 

£'00 Ul = U1-: (5£80.--''3fc.00) 

Pjy y = Ul+f (Ui«RNl!(01 1 .-"SO)-!' fUl^RNDfO) ) /£0) 

£80 GOTO £70 

£30 Ul = INTi;i000*;RNDC0i ) 

£40 PRINT "OK? TERMINAL UELOCITY ="U1 "ML^HR" 

£5h Ul = Ul*^C5£80--"3b00) 

o £, y - i i 1 + I ( ! 1 1 StRMIi f 1 ] y-£0 j - f f U 1 *RND i.Q) i ^20 ) 

£70 PRINT "WANT TO SELECT flCCELERRTION DUE TO GRflUITY (YES OR NO) "5 

£80 INPUT ■&!< 

£90 IF Bi$ = "NO" THEN 370 

300 IF Bli^ = "YES" THEN 338 

310 PRINT "'YES' OR 'NO' PLERSE!" 

3£0 GOTO £80 

330 PRINT "WHRT flCCELERATIOH (FT.^SEC-^SEC) " 5 

350 H = H£+ ( (R£*:RNIi (O) 1 --■■£03- ( (fl£5«RND(0) ) ^£03 

380 GOTO 780 

370 or-! I NT ( 1 -i- ( 1 0*F ND ( ) ) ) QDTD 3S0 J 4£i0 j 4£0 5 440 ! 460 J 480 5 500 J 520 j 540 j 560 

380 PRINT "FINE? YOU' RE OH MERCURY. flCCELERRTION = !£.£ FT-^-SEC^SEC " 

390 GOTO tio0 

400 PRINT "RLRIGHT, YOU'RE ON MENUS. RCCELERflTION = £8.3 FT-^SEC-SEC " 

4 1 €i GijTO 600 
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4 59 

49P! 

500 

■■". 1 0\ 

".J cl '^'i 



':j5y 

~l -^l r„i 

570 

580 
'590 

600 
i:a0 



PRINT 'THEN? YOU' RE ON ERRTH. flCCELERRTIOH = 3£. 16 FT^-SEC-'SEC" 

GOi'O 6£0 

PRINT "FINE? THEN YOU'RE Ofi THE MOON. fiCCELERRTION = 5.15 FT.--SE!::.--SEC;" 

GOTO 640 

PRINT "OKRY? YOU'RE ON NflRS. flCCELERRTIOH = 1£,5 FT.^-SEC.--SEC" 

GuTO 660 

print" i'L.L F^LiT MDU QN JUPITER, RCCEL-ERRT IDN = 85 „ £ FT^-SEC'-'Src" 

GOTO 680 

PRINT "FiriL? YOU'RE ON SATURN. RCCELERRTION = 37.6" 

GOTO 700 

PRINT "GRERT? YOU'RE ON URANUS i RCCELERflTIO^i = 33.8" 

G.OTO 7£0 

PRINT "Hi RIGHT? YOU'RE OH NEPTUNE. RCCELERRTION = 39.6" 

GOTO 740 

PRINT "I'LL PUT YOU ON THE SUN? WISE GUY! RCCELERRTION = S96 FT/SEC-'SEC 

'JUTO 760 

GOTO 8!^r0 



'.fiTfl 850 



1 i-i !.:n I ■ i 



.•' i .l-'i 



P80 
800 

8 1 

C' C. kJ 

830 
£i40 
850 

;-!8f1 



') 1 



GOTO 350 

GOTO c50 

PRINT 

PPIN! " hLTITUDE ="01 "FT" 

PRINT " TTPivi^ sjELOCITY ="i.it "rT.--8FC 

PRINT " RGCELERRTION ="h£"FT./SEC 

PRINT "SET THE TIMER FOR YOUR FREE FALL. " 

PRINT "HON MRN^" SECONDS"? 

I NPUT T 

PRINT "HE:RF we GO" 

PRINT 

P'R I NT " T I NE l SEC ) " ? " D I ST TO FALL C FT J " 

r OR I '■— !■„'.! TO T 

Tr" I > '■jy'P, GCiTU yr"'i;1 
D = Di- ( iR--£3 *lt£) 
IF D<=0 GOTO 1100 



■■-SEC +-5";i" 
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938 PRINT IjD 

940 LET I •= I+T.--''8-l 

950 NEXT I 

960 Earn 1048 

970 F-RINT "TERMIMFlL UELOCITY REfiCHED AT T PLUS "U.-fl" SECONDS. " 

9c'0 FCiR I = I TO T 

1000 IF D<=0 GOTO 1130 

1010 PRINT I?Ii 

lySO LET I = I+T---8-1 

1030 NEXT I 

1040 PRINT "CHUTE OPEN" 

1050 IF IK = 1000 GO TO 1080 

1060 PRINT "CONGRfiTULflTIONSj BUT YOU CHICKENED OUT TOO SOON!' 

1070 GO TO 1160 

1080 PRINT-CONGRflHULfiTIONS. YOU WAITED TO THE LfiST MOMENT." 

1090 GO TO 1160 

1 100 PRINT SQRf£»^Dl.^-Hl ? "SPLhT" 

1110 PRINT "TOO EHIU .. " 

1 1£0 GOTO 1150 

1 1 30 PR I NT ( U.-H ) + M ri 1 - 1; ute^ ■■ i £*fl 1 1 1 yu 3 , ■■ splht " 

1 140 GOlO 1110 

1150 PRINT "I'LL. GIUE YOU ANOTHER CHANCE." 

1160 PRINT "DO YOU WANT TO PLAY AGAIN"? 

1170 INPUT Z> 

1180 IF Z:?: = "YES" GOTO 50 

1190 IF Zl^ = "NO" GOTO IclSB 

liE;00 PRINT "'YES' OR 'NO'" 

lc!l0 GOTO 1170 

1££0 PRINT "THANK YOU FOR PLAYING." 

1£30 END 
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TANK: 

DESCRIPTION 
Tank is a little war game played between you and the computer. The computer 

is the enemy tank and will try to blow you and your tank up. The object of 

the game is to destroy the enemy tank before it gets your tank. 



INSTRUCTIONS 

Game instructions will be given during program execution. Additional program 

information can be obtained by listing the game. 



LIMITATIONS 

The source code for Tank requires 3K Bytes for storage. An additional IK 
Bytes of memory will be required for program execution. A typical game run 
is presented at the end of this program's source listing. 
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513 REM THIS IS TRNK 

75 PRINT '=THIS IS fi LITTLE WAR GfiME" 

100 PRINT "IT IS BETWEEN TWO TANKS - YOURS AND THE ENEMY'S" 

125 PRINT "THE ENEMY TRNK MOUES AFTER EACH SHOT" 

150 PRINT 

175 PRINT "GOOn LUCK!" 

£00 PRINT 

P25 ri=N=El=Iil=R=L=0 

£50 PRINT 

300 REM h4 is THE HIT RADIUS 

3 £5 H3=A4 

350 PRINT 

375 PRINT "AN ENEMY TRNK HAS BEEN SPOTTED - TAKE BATTLE POSITIONS!" 

400 PRINT 

4 £5 PRINT "ENTER YOUR DEFENSE NUMBER (1-100)" 

450 PRINT 

475 INPUT >i4 

500 ;■•:£= c - 1 1 *^*^:k4 

5 £5 V4=y£sy4 

?y50 GOTO 6£5 

575 PRINT 

600 PRINT "ENEMY MRNEUUERING" 

6 £5 X= ( RND i: X4 1 +£ ) ^30 

650 M=M+1 

6 75 H= i RND ( - 1 ) +•£ ) «30 

7 00 C= C Pr-ID f -£ ) +£ 3 *^30 



750 Y=X^R 

775 :Kl=(INTCY.--1001»;i00+INTf><) ) 

800 IF M<40 GOTO 850 

8 £5 H3=£«A4 

850 IF L=l GOTO 1150 

875 PRINT "ENEMY UECTOR RANGE IS" j XI J "YARDS" 

900 PRINT "ENTER YOUR FIRING RANGE" 

9 £5 INPUT B 

950 PRINT 

975 Y1 = INTi:Y) 



1000 IF RE 
10£5 R=HEi 
1050 IF Ch 



8 (E-Y1XR3 GOTO 1390 

iB-Yll 

-YD >0 GOTO 11 £5 
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1975 PRINT "rilSSEl! - SHOT SHORT BY", R5 "YRRIiS" 

1100 GOTO 1150 

ILES PRINT "MISSED - SHOT LONG BY" ? R? "YRRDS" 

1150 PRINT 

1175 L=0 

1P00 PRINT "ENEMY PIPING" 

lc'£5 IF HESCFi-CXflS GOTO 1650 

l;?50 PRINT "MISSED - ENEMY MRNEUUERING" 

IE: 75 GOTO 625 

lliOO IF RBSiB~Yl)< Ch3-'-£3 GOTO 1508 

IScS Di=Dl+l 

1350 IF Dl>4 GOTO 1450 

1375 PRINT "HIT" 

1400 PRINT "MINOR DRMRGE ONLY" 

1435 GOTO 575 

1450 PRINT "ENEi^iY DESTROYED" 

1475 GOTO £050 

1500 IF HES(B-Y1 X (R3.---b) GOTO 1450 

1535 IF Dl>4 GOTO 145© 

1550 PRINT "DIRECT HIT" 

1575 PRINT "MAJOR DRMRGE TO TANK" 

1600 Dl=Dl+3 



IF hBS(H-Cj ( (fl3/3j GOTO 1850 
E1=E1+1 



1 ,•' .--D 



1300 

1 350 
1 375 

£000 



.::: 1 by 
3300 
3 £50 



1 1- Li>4 GOTO 1800 

PRINT "YOU'OE BEEN HIT!" 

GijTO 1400 

PRINT 

PRINT "ERNG! < ! ! YOU'RE DEAD ! " 

GOTO £ 1 50 

IF HES(H-ri< i:H3..^-9) GOTO 1775 

IF El>4 GOTO 1300 

PRINT "DIRECT HIT" 

PRINT "MAJOR DAMAGE? TWO MEN DEAD." 

L= 1 

REM IF L=l YOU LOOSE YOUR TURN AFTER A DIRECT HIT 

Ei=ri+4 

GOTO 6£5 

r- f^, hi! 

IF H3=l£*^F!4) GOTO £150 

PRINT "MESSAGE RECEIUED FROM HEADQUARTERS" 

PRINT "NICE GOING YOU GUYS!" 

F'RINT 

PRINT 

PR I NT 

PRINT "MOULD YOU FIKE RNOTHER BATTLE" 

INPUT Z$ 

PRINT 

PRINT 

PRINT 

IF Z$="Y" GOTO 3£5 

ir 

END 
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t:>^E:cuTEi! n;i in of ri-iE grhe tamk 



THIS is R L ITTUE: I'BR GFlML 

If IS BFTHEEri TWO TFiMKS -- YOURS RHD THF ENEMY'S 

THE EriEI'IY TFiriK MOOES FlETER EACH SHOT 

I'iriuD !_JJCK' i 



Fiii rNj:i,iv TRr-lE MRS BEEN SPOTTED - TRKi: BRTTLE, POSITIONS! 
E:i!TER 'tOUR DEFEMSE nUMHER i: 1-100) 



"?t.7 

EliEriY OECTOR RRRGE IS 
E.rnTT' YOUR Flh'IliG RRNGE 

■"'!;:, GO!' I 



r:0t:.7 'rVlF"!!!'- 



MlrinR liRriFlGE 00!. Y 

tilEriY MHREUUERIIiG 

EMEMY OEXYT'OR RRMGE IS 
E r 1 T F R YlflM f 1 R 1 RG FcOr -IGE 
?!:", 300 

MISSED - SHOT LuHG EY 

EIIErTi' FIRIRG 

rURLUT HIT 

MflJOR TlRriRGE; TWO MEH HEhD. 



^^.£76 YRRP'- 



THIRDS 



FriEri'Y' FiRiriG 

HI S£.Er! - Er iEM'T' Mfil fTlFiFT-; I HG 

EriEMY EiKT:TOR F:RriGE IS 
El ITER 'roup EIF'ING PflriGE 

?:35it.'iO 

[■HS:;;Eii SFIOT SiiORT BY 

FHEMY EIRIHG 

EfiriG! ! ! ! YOU'RE nERD! 



"fis,' 1 't'hfiij'E. 



199 yrrhs 



J! n YOU LIKE RHOTHER BRTTLE 
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Fin EilFllV TflriK HAS BEEM SPOTTED - TRKE EFlTTLE PuSITIOMS! 
EriTER ViJlJR IiEEEMSE t-IUMEER (1-1903 



EiiErn' UECTOR RflMGE IS 
EriTER VOiJR EI RING Rf\\K£- 
7'5 1 50 

r'HSf.EIi - '^.HGT LOriG by 46 Vi-iRDS 

EriE!1Y ElRiriG 

MISSED "■ EriEMY MfifCUUERIHG 

EriEflY iJECTOR RRt IGE IS 477S YRRDS 

El ITER YOUR EIRiriG RFlMGE 

!„ i J' J- 

I'll nop DFlMHGE ONLY 

LiiEt'iY Mflr-iEUUERIMG 

EJIEMY IJECTOR RhNGE IS 51.F.F, N'RRpS 

EilTER YOUR EIRING RRNGE 
■■'■!:^i 1 £10 

niSSETl "• SHOT SHORT BY Pf. YflRDS 

EtiEJlY EIRING 
YOU^'JF: BEEN HIT! 
MINOR DfiMRGE ONLY 

ENEMY MRNEUUERING 

EriEITi" rfF:CTOR RRNGE is 45S4 YRRDS 

ENTER YOUR EIRING RANGE 



■i'RRDF 



EIIEJIY EI'-ING 

DIRECT HIT 

MRJOR DRMRGE; two NEr-l DERD. 



ENEMY EIPIHG 

BHNG! ! i i YOU'RE DEAD! 



.■inULlJ ■.'OU LIKE RNOTHER BRTTEE 
"•NO 
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TEACH ME: 

DESC R IPTIO N 
This game is one of the two cybernetic programs included in this volume^ the 

other one is Animals Four. Of the two this one is the most comprehensive and 
compact of the cybernetic programs. The program is designed to teach the com- 
puter how to learn about animals. When the program starts the computer only 
knows two animals. Each answer given by you increases the computer's knowledge 
about things. Each item is catagorized and the computer's responses are selec- 
tive. The acuteness of the responses is uncanny, almost human. The learning 
curve of this program is similar to that of a five year old child. 

I N STRUCTIONS 

All inputs are prompted for by the computer. For detailed program instructions 

list the program. This game was adapted from the game "Animal" written by: N. 

Teichholty. 



LIMITATION S 

Line 350 contains a STR$( ) statement. Line 725 uses the LEN( ) statement. 

Starting in line 800 the SST( ) statement is used; this statement is used 

extensively throughout this program. Program storage will require 4K Bytes 

of memory. Execution length is a function of the DIM statement in line # 

325. With the DIM set to A$(500) the program will require about 16K Bytes 

of memory to run. 
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TEFlChI ME 



i cm !,J7=u 

1?!=; pPTMT "WELCOME TO TEfiCH THE COMPUTER THE RHIMRLS" 

1-iPi PRINT "WHEN YOLI ARE RERDY TO LEflUE TYPE -- STOP" 

17^i PRINT "IF YOU WOULD LIKE R LISTING OF ALL THE " 

PfiO pRiriT "RNIMRLS YOU HflUE TRUGHT ME TYPE - LIST" 

PF:5 PRINT "WHEN RSKEH - RRE YOU THINKING OF RN RNIMRL. " 

£50 PRINT 

£75 pRiHT "THINK OF RN RNIMRL RND I WILL TRY TO GUESS IT. 

300 |--.i=:3 

3 £ 5 HIM H$ f 500 ) ? B$ i. £ 5 ) ? C 80 ) 

"; !=i fl$ 1 ) =STR$ i 4 3 

375 FOR 1=1 TO 3 

4 Hi.-! PERD fl^- i 1 3 

4£5 NEXT I 

450 DRTR ".^-QIiOES IT SWIM.^-Y2/N3.-^" ? ".^-RFISH" ? ".^-REIRH" 

475 PRINT 

500 PRINT 

5£5 PRINT "RRE YOU THINKING OF RN RNIMRL"? 

550 INPUT Z9:?: 

575 GOTO 3075 

600 K=l 

6 £5 IF U7=0_THEN 675 

650 GOTO 70£i 

675 GOSUB £050 

700 GOSUE £900 

7 £5 IF LEN(R$iK))=0 THEN 775 

750 GOTO 800 

775 GOSUB £050 

800 B$(£J=SSTCR$(K) ? 1j£) 

S£5 IF E$i:£)="--Q" GOTO 625 

850 E5=R^CK) 

875 F£=LENiR$i:K3 3 -£ 

800 19=3 

9 £5 GOSUB 4575 

950 PRINT "IS IT fl "?Kf-J 

975 B$(3)=K5^ 

1000 INPUT Z7$ 

1 0£5 Z7$=SST ( Z7:|: ? 1 j 1 3 

1050 IF Z7$="Y" GOTO 1100 

1075 GOTO 1175 

1100 PRINT 

11 £5 PRINT " '^■^- PRM UERY PROUD OF MYSELF. "*« " 

1150 GOTO 475 
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1175 PRIHT "THE RNIMnL VOU WERE THIHKING OF WRS fl "; 
1S00 INPUT Z9$ 

l££-5 PRIfiT "PLEFlSE TYPE IN H SIMPLE QUESTION THAT WOULD " 
1£50 PRINT "DISTINGUISH fi "Z9$" FROM fl "E^CS) 

1£75 M=N+e 

1300 INPUT Z8$ 

l:3£5 PRINT "THIS WOULD BE fl UflLID QUESTION FOR fl "Z9$? 

1350 INPUT Z7$ 

1375 Z7$=SSTCZ7$5 Ijlj 

1400 li- Z7$="Y" GOTO 1500 

14£5 IF Z7:?="N" GOTO 1550 

1450 PRINT " PLEASE ANSWER 'YES' OR 'NO' " 

1475 GOTO i3£5 

1500 Z6-?-="N" 

15£5 GOTO lb£5 

1550 PRINT " HO! U.K „ . ." 

1575 Z6$="Y" 
1600 GOTO 16£5 

lb £5 zi=uhL!:h5(0:i ) 

iiS50 H$i:0j=STR$i:Zl+£} 
1675 H5CZ1i=fl$i:K) 
1 700 H$ ( Z 1 + 1 3 = " .--'fl " !?: Z9-^ 
17£5 H5( 1 J=".---Q" g: Z8$ 
1750 H5-r£J=H$Clj g; "■■■■" 
1775 H*^(n=H5;C£l & Z7> 
1 300 Hs ( 3 3 =STR5 ( Z 1 + 1 J 
18£5 H$(£j=-H5ri} g: HSOI 
1850 HS(lJ=H$(£:i !<: "y" 
1875 H$i;£:i=H$i:i1 & Z6$ 
1 900 H$ ( 4 ) =STR$ ( Z 1 3 
19£5 H£(13=H$i;£3 g H5C43 
1 950 fl:J ( K 3 =H5 (13 ;<: " .--• " 
1975 GOTO 500 
£000 REN 
£0£5 REN 
£050 IiEF FNfl(K3 
£075 F$= ".--•" 

£100 e:$=hs:(K3 

£150 GOSUB 4075 

£175 F£=E9-3 

££00 19=3 

£££5 GOSUB 4575 

££50 E$(43=K$ 

££75 PRINT E$i:43 5 

£300 INPUT Z9$ 

£3£5 Z9$=SST ( Z9$5 1 ? 1 3 

£350 IF Z9$<>"Y" GOTO £400 



' r _< 



GUTO £4£5 



£400 Z9$="N" 



[-lI.-_! 



.11 ,. II 



-.i£ 
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£450 E$=fl:?:CK) 
£475 Fi=3 
£500 GOSUE 4075 
£5£5 Zl=E9+£ 
£550 F1=Z1 

--■cr-?nr rr'-ir— ■» .-■ " 

c.-_' 1 ■_! r ■=■— •■ 

£ 6 00 E$ =H$ f K ■' 
c:6£5 GOSUB 4075 
£650 Z£=E9 

d. t' i' -.J rc'.—£i.c'.~c- 1 

£700 I9=Zi 

£i-£5 bUbUB 'i-.jr-J 

£750 B$iK:i=K$ 

£775 FNfi=UfiL ( E$ i K ) ) 

£300 FMEND 

£S£5 U7=i 

£850 RETURN 

£875 REM 

£900 K=FMfl(KJ 

£9£5 RETURN 

£950 REM 

£975 REM 

3000 REM 

3050 REM THIS SUB CHECKS FOR fi URL ID RNSWER 
3075 E5=SST (Z9$j 1 ? 1 J 
3100 IF B$="Y" GOTO 600 _ 

31 £5 IF E5="L" GOTO 335ti 

^il^ IF B*="N" GOTO 500 

3175 IF E$="S" THEN 4950 

3 £00 PRINT "PLEfiSE FlNSWER YES OR NO ! = . . " . 

3 ££5 GOTO 500 

3£50 REM 

3 £75 REM 

3300 REM 

33£5 REM 

3350 REM THIS IS THE LIST SUB 

3375 PRINT 

3400 PRINT 

34£5 PRINT "THE flNIMnLS THRT I flLREflDY KNOW ARE:" 

3450 PRINT 

3475 FOR 1=1 TO N 

3500 E$=fl$ C I ) 

3 5 £5 F$=".^-fl" 

3550 Fl=l 

3575 f£=lehi;e$:i 

3600 19=3 

3 6 £5 GOSUE 4075 

3650 IF E9=0 GOTO 3900 

3700 CHRNGE S$ TO 
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"iHfiy 



:3 900 

3975 

4000 



F3=LErUE$^ 

uci£-£:)=n(l£j 
riEXT I£ 

CHhNGE TO J 

NEKT I 
PRINT 

REM 



.;li"i!-iH 



■-■I- I ! ,J 

4? 00 



REM 

REM THIS I S ThlE I liSTF: ( F l ? E$ ? Es ) SUI; , 

REM E£ IS THE T'U BE MRTCHED STRING "SE" 

REM El IS THE STRRTING POSITION IN THE £■$ STRING 

REM THIS SUE RETURNS E9 =0 IE NOT EOUNTi? ELSE POSITION # 

E£=LENrE*^) 

E3=LENiE$) 

E4=P3-E£+1_^ 

FOR I9=Ei ro F4 

Fs ( i ) =K$ 






:?■ i 1 ) =F$ 






'-V 'T ! = 



RETURri 

"K-J 



=-jrjriKi 

4h-,00 



H' ,--yo 



4 Hoy 

4900 
4- 9 £5 
4-950 
4975 

5000 

50 £5 

=10 "^^O 



REM 

REM 

REM 

REM THIS SUB SETS THE CHHR LENGTH 

REM K5=SST C E:$ 5 1 9 ? F£ ) 

REM E£ IS # OF CHRR. TO BE SELECTED. 19 IS THE STRRTING POSITION 

REM THIS SUE RETURNS Ks fiS OUTPUT. 

CHANGE Es TCi 

F3=LENiE:?j 

FOR 16=19 TO F3 

0(16+1-19) =01 IS J 

NEXT 16 

Of0i=F£ 

CHflriGE TO !,Js 

RETURN 

REM 

REM 

PRINT 

pR i N i 

PRINT "THANK YOU COME AGAIN ." 

PRINT 

VhJTl 
L...1 iL.' 



243 













244 



PART 2 - PICTURES 

INTRODUCTION 

Computer art like all forms of art appears on many levels. The picture programs 
presented here represent a single dimension and intensity. All of the picture 
programs in this volume use standard Basic instructions and will execute on any 
standard terminal or teletype. By way of comparison the first two pages in this 
section illustrate the difference achieved when using a high quality line (256 
column) printer. The two pictures were reduced in size from their original size 
of 14" X 18" to increase the resolution and contrast. Overprinting techniques 
have not been used on any of the picture programs appearing in this section, 
therefore their overall quality or resolution appears lessened when compared 
with the first two illustrations. All of these pictures should be observed at 
arms length or further as the resolution produced by single type character 
terminals and teletypes appears rather poor when viewed close-up. The following 
pictures are very descriptive and extremely detailed for single type character 
terminal reproductions they are in order of their inclusion: Ms. Santa, Nixon, 
Noel Noel, Nude, and Virgin. These programs were produced using a standard 80 
column teletype and without using overprinting techniques, however the reader 
should be aware they are extremely tedious to enter into a computer due to the 
large number of descriptive characters used. The reader wishing to duplicate 
the the picture programs in this volume would be well advised to start with the 
simpler ones first before attempting to reproduce the more detailed and descrip- 
tive programs. 
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lMlMKlM«X»I«18»»IBeM»«i*B»I 1 XaMMMH«MM XMMNNN(aMMMMMMM««NM«« 




»«»««1««M«M« tlMMMM BMNKM H >M«Sa »*« MBB 
l«flN*It^*»*a<^l'*M^X«iiW<W(a-Sit3tel'a(aM63MP.MNMX X XMMMNMN®® 
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asiisir"^ 



bfeMMM 



ifflEII 



I l****fe«-ZXAAXZll)=»"**»-=— '"==■»* 8 11 IZKKaa&AflA&Jli I) »-=»- 






JXRMfeHMAXl*- 

-ZAMeeMMAftAXl* 

tAM66fcMf!MH«flMXl- 

lm:»S6Hf4AAAM»eF<Z« 

JMsSeeMMMAAAMNHMHl 

Zfaft&Sfcfc€«MMHMN 

Xb&«i&&efAHHMMMAe 

AeSC&»6WMAAAAAA€ 

A&&e»66HAAxZXXAr4»iK 

XseftftftMMAXXXXZAAAAW 

XbSShAAAXlU) IZllZXfi 
/fcSfcfcAAAXXZZZZZllZZZXK 

.dtfefrbHMMMMHAXXXXXXXXXAe 



-==■*) Jl 1 !♦♦■=- 



1 f!fcfchM«l»fefeMAXXZZZZKXXA 



-=»)1ZXXAMM 
— H UXAMM€"' 
,-AI — =»)iXAMe ~ 

ienl — ==tJZZXMfc4« 
iHXl »liXZX< 
iSgNAXXXXK 



— ^»»=.»*) JIZZXXX 
-=>t«-l» UZZXAAMMMM 

=+) 1 1 zxxAAMMeeesssi 




■JAStefcfcMMfcMAX 
AfeifeMAAMeeAXiZ 
Aft*BH 

IMfcAXl 
lAAX 
-=)iUXXX^ZZll IJ 1) )1 
-*l/:AAXXAAAXAAAAXXll I J 
t IXMfcSfetAAAXXXAXZ lit*** 
XMfes§at*MXM«X 11 !♦*«■= ») ) t| 
tilllZZZ/lZZXXZ 



ZXXXXAK 



lAAM^ 



MAAMeeAXZZZZZZZZZXAA 

xn)ii*+*in-=*)iizzx 

""""illiiiiiill 

= »))*IU»)ZA, 

IZZXXZllZZZZ 

teMAxzzzziiZi 

AAZl )l ) I I 111 



XAi 

XA6 

ZXXAMi 

XXAAAAeS 

""XAAH66 

XX&M6S 

zxxAes 

AAAXABS 
ZXXAfcteSi 
ZZAMEiS, 



sasB 



ilii 



ib&i 



sMMAMMMHeSe 
bMMMAAAAHM6« 
bMHMAAXAAHfl" 
bMAAXAAAHM€ 
SMAAXXXAMeS 
ScMMMAXAAAAMee 
&MHAAXXZXAAAAM66 
e-MAAAXXXZiZXAMMMtSSafta-MMg 
SMMAAXZZZZZXXXAAMMM6«i6MAti 
BMAAXXZZZZZ2XXAMMAAA6feBAAa' 

ig£^iiiiititii."i^j^jfijiifiiiif?r*xXsi^^xSi. 

-' ifaseeeMAxzzu)) )»»+) aiuzAfcMxM"' 

S6®Sfce«flAXZ t) Jti ) ) )l llZZ<:XflMMMAM 




fcfc«flAXZ t) Jti ) ) )l llZZZXAMMMAMUaaeSfc* 
6HMAXXZZZZZ1)» 1)1) IZ XAAMMMA6a88a»6A 



UZZZDJI )))! 

;iiiuizzziiz 

ZlUliOIUlU 
XZlil ti4t«tt I )1 

'^I'unijiiuii 



XAAAAAAXfc66S8»fcA 
XAMAXAXA6SSS««:eA 

zziZiXstaasseH 

M 



bfeaiftaascxz 

ft«S«&&fet:MAlZZZZXXAAfc 

te4*6&6fctb6«MAAXAHMAAAZl )» ) ) I )11ZZAAMS6 

66SM8S»fttsMXZl) I I ))+««• +=♦♦*) IZZXAAHfcSS 

8&8®&t6tt6fc HZ )!--n-l l* = ====<-|lZZAXXAAAfc§6 

eSM&^feebefbXIUltt I) ) t llZZXAAAXXAAAM6se&. 

68e&tfe«.fc6fcftfcZ I lZZZXXXXZXXAAAAAAXXXXZXfcS5&«_ 

t6ftS6«ifefc6&tMZX€6fcfeSfcMAXXXZXZZXAAAXXXAM66&68 

S>&«a«6&t:k»tifcZXbfe8@B96AAXXZXXZZAMMAM>)i:«S@8fr6 

&a6fefefefcMMafet:ZAe6(SaeS66AZZZZZXXXXAMMt&- 

ft.466fe-fcMAA<:ftSXXM66ftaS6AAAZZZZXlAAM66ee( 

tftfeSbf AXZXMSAnefcSeSSMMZZAAXl I ZAA6Se6 

&&feefeAXZZXfc&6XMAAHM«MHAAXAMAAA6eM6ee" 

&6sbHAXllXb8SMMMAXXXAAAA«MMMMe®S8M6e 

6tefcMAXZ)lXe88§efcbAXXAAMHAMgfcMfc*»a6Mg 

efeMAXXl)lXsaffl®6eeMAMMfefel'fct«feS4€tt&6S6 

eeNAxuizfasaes&eMee&gseeteMesSfSeseg 

bMhAZi*lA4Sa8i€66MMMe*Se8§S«§®«8gga6& 
bMAXl X-ifc 
MAXZ) tlAt 
.lAXl t-«lMft 

Axz<> ixe^atia 

AAl'»4i.fcfia6«fi«aa8S&&&l>Sftfi&£K6b&&Sa3t6 

X4if ih«6&6ii&st@Me66egeegeeeMeeBaeseMZAb 



4sa8i€6bMMMetise8§s«§®«iggas 

s4fia8sefcfcMb6ft9»66§S6Bt6saaa&M8iSsa 

ftaas«gMMEMtft@s&igeeei§SEfteaMii£$bi 

at>9@ssfte§e&esseb€6esgges8&eAb«b%see 

6«fi«aa8S&&&l>Sftfi&£K6b&&Sa3t6MAH6e&eC 



Zl) IA« 









Z 1 lXb&6t&&tS6i&€&S@&«e£be§6iai 

1 1 iAfe6«,64&&i4sfte6»6t;ebHMee-aeta 
1 ) xe&ft&«&&st:e&»a8%(>&eb£ee§es§i 

»)u&%&6&&bbb6&&UftbMMHMHHb&«te 
»)ASft»&Stfafa«&aat4SebM6MHAAMbS8a«St 

"^ 1 .ifct.6&B6bMe6esg66tee6Mbe66M66afiies6 a i ) zbS 

' ' SeMAXUAS 

SbMAZl^ ' 



ibfaXZM 

iMXUAHiS 

IMZI1AH6I 

= H-»ZM6" 

IXMSl 



is&eE 



uxAeas 

la&AAAA 
l«.a§6€MAAI 
lS.eS8«&6A6*S 

lessaaabbift 
iHMeaasiebfe 

EXAHSSSgMMft 
IXAfegS"" ^ 






i6& 

8tfe6&« 

iMAXfcS 
IKAA&i 
t&AbiS6S 



S6«MM XZZ 
"lAXZ 
■lAXX 

. nAxzziiiii )i))ii) jiuiiue 

iMAXXXXZl/:lU llZXXAAAXXXXZXMi- 

SfcHAAXZXXXXXAAAAAXXXMMAAAAAfefeft 

SbMAXXXXXZAAHHM66MAXXAAAAHMaS» 

itfcMXXZZZZ ZZXXXXA AX XXZZZXAbSft 868 

sseeAAxzi) ) ))t ) i miiiu ixM64ffl«« 
BasbMAXxzi) )♦*»+*») + DID ixEeassasfi 

XXZZll I ) ) 1 •»»*»♦♦» 4-1 A6»t«i 

-AAxxzziuuz izziiutXAMCeesa 
sebHMxzzzxxAAAMeMMAZiMeefesaa- 
sertAAAHH6b*ef(AxxxxxAfcfefeiefeMxztift&iae 

5feeMAAXAH6fcfcMf)AAAAAMH66F66§eMXib«fe»8Sa 
ii6feMAXXXAHMfcAAXMrt4AMt6«&66feMZZfeS66a8SeS*S 

- e«MHfeMAxxiXxxxxAAM§ee8-aaeMZzfcfcfe688i 

-"6S66AXZiXXZZZXAMM6€fcSSfcMXAefe66fla- 

siSfeMAAAAxxxxAMAxxAc-eeaeeeasse 

lfcSCfet%eHAMMAHAXUXM66'" " 
iSaetitSftM&HMHAXXXA.'Iftt 
Ba688fflS6S6efc666€HMAAfe« 

a&Si6ii-liS»6isa:&«S®84t6&Btfe6ftaftfti - 

^ggbi»»&eaeaek4gs£i.««6easaie8staft£i6&&€e«E&ftefe£s 








Safift66S68ft*ei66fefefcfefe6ebfeee&S 

sasfe&ee* - 



gXDZM 
5Z11XH 



=lbS4fefe44fattfc«6€&&gSaeMXAAAAHN 






_ _ . ^tttbbbfe&eSSSbfcM&AMMi 
lM&&ftte!t£(iKfe«6tgi&e6bbb 
lniiMt6&feg&bb&ft&6&b6§ 

iBirc&sse6g6&«:e3&a«ea~ 

ib&ti&ktitft&e 

Zbe^e 

lbg&«6ftaft@S««ebb6nbbAZZf< 
zeSet&MSftgktebMMAHMXZl II 
Zb6^&ftMt«&&ifeMAAAAHHAl ■> 
Z«66fc&&efiU&b«nAAMAXHA14 . 
A6g£ftftSSa&e%bebHAHeAXZl )»1 
Afe6*a6S98t6eS««:be@6AZJ )-= 
H5ft(jft6t4fea;Sftfc8fe9ifebfc§6AZZ)- 

baat«ftwu&sce€&eese6@MbAi-=^ 
bs>sees&«%s6&as«seessftassfeMxz 
t66fe4&6.4*6tae«s«efaa 

h&6bbbbMMtbfebHg®8ft« " 

Afeb-HHAAZiXAMHMMfc&SS 

A«fcbbMAAXXA«H€efcet6 

XAMebMAA«AAMMfc64 

ZAMb-bMAAAMMMbfcfe&fe 

iArtbtebMMhilMM _ 

AMMfcfeefebMMMMb6§l 

MMMbbl&&&g bb b&6@i 

MMiiAMb6&8ifebfe&-" 

MAAAAM€b@e6«iS 

M^4AAAAHb&»6ea 

tpfMAAAAMcbfeft " 

bMMAflAAAMMfce 

bbMMHMMMMAMfcg 

fc c fcrt3 b c b M rl M M n 



g£bbgS 
_tfiMAA6M 
£ea«A IZAS 

■"" JXtlA* 
- - -IS 



SAAHSEMAbE 



_ _ S68ft*ei66fefefcfefe6ebfeeet 

&MMMMfe9«6S«e " - -• - 

i6tHAAA6e« . 

SMXXHfe»e8»888e4S666efife6€e6aftaB««6ee6feMMM6fcfcH6e& 
feAXXAfe&8Maaa«88®(iEbfc-b«€6fe4aa8aft6cfer.MMMHMbtHMMfe 
IfeMAXAbt assess; «®4&6fcefefr66§eeS8aS**&6fefcMMetMcbMfe6 
■5MMXXMa8aaaee46g6fe«i66fc6£6afe«46*ia»(ife6e66fafc€666€ 
SMAAA6a@aS&S(S6tM6MMHMMfc6e6ft&»SSaeeetCbb6£MMMfefa€ 
6MXXM&6aSe:ftfebHMMMMMAMM£6€ea86a«S(ife6i=MfaeetMAMMbfe 
aMXMM&8a£6ft6MAAAAAMMMMfcfeett«Sl«tta6fe6beiS66MMMHHb 
SAXAb6*&6a66tMAAXXAAXZXM6§6S®Se§66MteefcfctMHAAMH 
eAAHfeft88iSfi£fc£Sfe£f4MMMHA6eSeaiB»t&BeMHMMfe66bMAAA.-H 
;MM&&«a«^»««aBfl8S£MMM££g»86tfiS§6e6HHM£feefaHHMMH 

"" — ' 6bM6et«s«»6&efe6feeee§et=e6eebM 

3t=M®a6te&4»8Saaeti6S8e8S«e686e6b6b6e£t6€Mfa£ 



U^^SKSa"*'^' 

"1!ZAbie«feAXZAfe€ 
■lUZAAXXXX 



♦ Afe6 

^^-=lh2l 

IZXAHS 

HAXM6 




MMAAMHeSS 

. _ MHMMAAXAAf 

&k6&6bMHMAAAAAAAAAAAAAAAAXXXXXXXAHeS 
febfceMMAAAXAXXXXXAAMMMMMCM66MMAAAXXfi" 
cMfabbMMMMHAWAAAAAMbeebbfefe&eeeMAAXAfa 
&tKfefc6MAXXXXXXXAAAMAMMMMMXMM««MMXAMebi 
fcbbMMAAAAXXXXZZZZlZXZZZXXXXAXXZl) llllZXZXf 
XXXZZZZZZZXXXAAAAMHENAZItlZlZXZ) 



|MfHjf 

=ZHAAXAAAbAAXMH6HXA 

t-AeAAAAAHHAZZXAMA. 

MXEeAAAAAMAAXZZXXZZZAH 

MMMMMAXXZXXZZIZZZX 

6bMXXZZlZZ/ZZZZZX 

eMAAXlUlZllZZZZXXM 

HAAAXlf *))Z1IIZZXX 

MAAXXZ««- ♦♦»+»»♦ )ZXXAM 

Xllll)********) IZXXAAAE 

MXZZimi )*»♦♦») I IXAXX 

HXXZZU)! ♦==♦♦♦) IZXAXA 

HAAXXZll)*=»+im 

iMAM«MAXXZZXZI«n-)im£XXA 

SbfeAA6HAAZXAXXU IIUZZZXX 

gEAXAMHMAAAAXXZl IZZXXXAAHAN 

ebHXAAAMMMMAXAAXXXXA 

AAMAAXAAAAMMM»<MA 

AXZZXA 




&6&eiisgi(i&b6g 



ZAb€g6ftSfi 
ElXA666£6e 
AKfMMM 
1ACMMHHH6S 
N66MH£MAfie 
_UlXMMfig6H66£a'- 
)=JXM666e6666S8 
iAXX€S8«)~IXbtiSES««fi€aS&L . 

;;B^6AZ^MassMi<'ZM££&fte£e§t£6e6ee&6«&e6AAxxAM£ 
»66&fe6see6iixMfe88@aaass«s6££b£e4sst:;iAAAXAbfc 

feAXXA£8S8aaMSfia8aS€€MA£6£§ebfcMAXX.. XAfab 

)ZEeeae9sassaeeeass£e£££e€£HMHMxz i.i xA€eg 




iAMXlZ 
iMHMA 



^ZAfesei 



t§e4eeMMMxxx<^ 



^Abfegg 



bHAXUX 



eefeAi* -*X' 
cxzi*-* 




I «—«■*■#■=*■=- 



MZ»- »» = x*|l| 



bbbMHAAAAAK __ _ 

bbM AMMAAAA aX ZZX AX XX XAAMf<AAXA A XXZl ) ^^■*■4■) IXXXAMAXZ Z< 

cMMJWMMMAAAAAAAAXXXXXAXXXKXAMMebMAXZt-'^illZXAMAAAlfr- 
nebbhMfWAAMMHAAXZZZZXXXAMMMHMHMMNHAAXm ) 
fa£btiMMMMMbMMMAAXXXXXKXAA£€6£«6«8e9«8MX 
66febMMbebM«MHMeHAXXXKAhSS8«S8iei6MAXX' 
*.tebfctfcbbbMfcb6SfcMAAAAAAMfc§8S€«eeSi86- 

6B6c6§»*66fe6€66fcMAAXXA 

6i&&6ae»fi€&6e«^«6bMXXZXA 

ftG6fta&e»&Me>ss€e€AZ lizA 

AMbgftft«ae@§A@@SfebMXZZZXHMbi 
1 IZXHbgasasaSfiSCt^bHAXXXAAAA 

':=t-i ixMb&sesaesBesebHAAAAAAMe 

-= ) /AbftfieSMH8S«£££MMA. 

— =*)iAM£*§«sMBa§seefeeAAA 

-=)1 )+») liAXAHMe€888€6«§€AAAXAMg 
— =*4-H-==*)ilZXAMM6ee6ttfteMAAAAM6' 
--=■=» = = ♦) 1 1 ) lllZXAMfeta66MAAAAA 

= — =*izxMbeeee6AxxAb 

-=«ZA6S 

_=_= + = HXMS 

ZllU)<-= -=-=))■»■«■) ZAM€ 

rtMMAl) Jl)= = --=**) UZZZXB€6§ 

AAAAi 1 lZZXZZ*HZZXXXXAHb6tte' 

AAAAAZXZAAAAZZZXAXXXAAM6fc6§S§ 

febMMAAbeBRAMAAAAAMAMMMe££8§6M 

XAAbbfaSbMAAAAAteeMS;44Hefe&S6€Mi 

b&feMAXXAAAAAH£gft£ftSi6MSfeieSM 

cesbAfiKANMhbesasMeefeessa 




i4&AAMee§ 

MMAAAMMHebegA 
MAXXAAAMfiEEb 
AAXAAAAM 
6I4AZXXZZXM6 
XM6 



_ _6t6£AAAMAXXZZZXArt§gtfe 
e66gMAXAHHAXXXAAAMfafee&& 

eebHAAAE-teNAMMMHefeSftsaa 

Sftfe6££6AAM§ft8e6bbbfe66£§aS6Se 

(fc*@66EMAAe6fee&feeeebbbfeB4ft66«e 
sebfebHi4££e66gefiee66b€»&«i«6eg 

teHM6bMfefe66S-geefe£6£MMMfaetafe4fcfa6t« 

t*fe6e£befe#S66§eb6MMMAAXXAMe66bMAHHfcg 

EXXH6S4a6£££HAMAHMAXZZXAAHfa6fc.Me6e8 

^bGe6ftG££b£MHHMMHAXXXHbeseC66e6ge€ 



£MZ*=»»+»)I1*1)1U1X 
S6Ml))*tlZllllZXXXX« 
U I1ZXZAXXM€M€6§ 
Ul) IXXAAMMHHPteHbeg 
SAZ) If -- 




SAZlZ) )t=-^ = = 

S6AZ11 )»==-=*=•-=«♦) 

' AZZZ)lt=>)llllZZZ 

HAAXXXAZZAAMMXXX 

_fe666bfeSS:®8feMAAA 
XXXAAXAMHMMHMAAAAAMMMMMAXAAM 



KXHeC 



ifaAZXAi_ 
SMXXANi 
IbXZA 



€gft&s&ea 
|S6lse 

S€MMM6Sft 
gfebbHAMMb- 
MM6S&fefc66bMMAAMe 
5§a«i£®®ieMMM 

£eae6a6Sft&^€%e 
ggg«ge%&Meg&K 

St3f4££gb69:tgb66 
6b6et:6;eS6&@bHn6££H£ 




MMAAAAAAMm!S9SB»S&Baa®»eS««S96®ail»§&»ia»a66§MAHH66eseaE66« 



IZZIZXXXZAXXZXAXXAXXXZX 
- )lZZZZXZZZXAMAAXXAAb__^^_^ __, soagbfefeHA 

&8S4MMMMA 
SgfefeMMMbaSftMAMXA 
efcfcbMHhbESbbMMAX 
fcfeeKbMAAMfefefcbHXX 
aiS&gMAAi.MbGbfAi 
S8@a«MXAAM6^tAXi 

■a««e4b«.iH6e*&.-iAZ 
sa«stsee«feBesHAA 

««8tfets48i®«eMi'- 

6ee66Ss^8essg6faMM€g6Sft£be6iaiiJlitiiiJ«eSBgsi®&fe8S8aa«a&6ii866&8sl6BB565 
6fi668fflibg§«e6bfit£»gft©S6b6Bga«fe&e,i»8.asaa&EK&«&iia&Sftaeaie®sa-«a&a«66*a»o:fei4e6 
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A. NEWMAN 

Description 

From that famous or infamous magazine the original "What Me Worry?" character 

is portrayed. The source code for this program requires 3K Bytes of memory for 

both storage and execution. To use, simply load the program into memory and 

type RUN. 



1 iEi^iMFir 1 



80£P 

003P 

i304P 

005P 
00fc.P 
007P 
003P 
009P 

1 0P 

1 1 PR 
IrJPR 
1 3PR 
1 4PR 
15PR 
1 6 PR 
17PR 

1 8PR 
1 9PR 

£epR 

eipR 
aspR 

£3PR 
c:4PR 
S5PR 



PR I MI 

RINT 

RIMT 

RINT 

RINT 

RINT 

RINT 

RINT 

RINT 

RINT 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

TNT" 

INT" 

INT" 

INT" 

INT" 



MflliMfiDMRD 
'iHliNflriNtlliMRIiriflliMflDMHliMFlD " 
MHliMRIirifiliMRDMflriMflDMHrimBMflDMflBM " 

iifliiriRrtiRiiMRiiMRiiMRririfiiiMRririfiiiMflrMfliiMflD " 

MRIiriflriMfiBrifiDMflliMflliMfiDMRriMflDMfillMflDMFinMfiriM " 
MfllirifiriMRDMflDMRBMHliMflDMflriMflDMflliMfiDMflrimiiMRD " 
MRDMRDriflnriflDMflDMRDMflDriRDMfiDmDMflliMflDMflDflflliMfiri" 
l-IRDMflnriRDm IiMRDMRDMflDMflnmDMflrimDMfiDMflDMRD ' 
riflDMRIM M M NRDMRDMRDMRDMRDriflriMflDriflliMfl 



NRDMRDMfl 

MRDNflnr-fl 

MRDMRDM 

MHDMR 

MRDMR 

MRIiMR 



NMMMMMMM 



MMMMMMM 



MRnriflDMRD 
MRDMR 
MRDMR 
MRDMR 
MRDMR" 
MRDMR" 
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l" 


:6PRIMT" 


c 


;?PRINT" 


c 


SPRINT" 


i: 


S'PRIHT" 


;: 


OPRINT" 


■". 


1 PR I NT" 


-:■ 


SPRINT" 




3PRINT" 


:■' 


4PRINT" 


2 


5PRINT" 




bPRINT" 


:•; 


7^ PRINT" 


:,: 


SPRINT" 


■:' 


SPRINT" 


.-: 


MPRIr-iT" 


.1 
'-'i 


1 PR I NT " 


4 


SPRINT" 


■1 


;3PR I NT " 


:;i 


SPRINT" 


4 


5PRINT" 


-1 


SPRINT" 


■1 


7PRTrn " 



, MRDM 
NNR ■■ 



KLW 



NH 



KUx ' 



MMM 

iriN 



MM 



MflliMfl 
MRU 

t i a n a m a 



M 



M 



:h\'^ ME WORRY? 



i PR I NT 

3ppjf-.|T 
i '-i-Hp:' j, i iT 

END 



IT.:' c 
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J.F.K. 

Description 

While it won't actually sit on a pedestal this bust of our 35th. President is 

an easily recognizable likeness of him. This program can be stored and executed 

in only 3K Bytes of memory. 



J u i" 



;ic. ■_!!■" 



i3y£PKlFiT 

Mfi3PRIMT 

M04PRINT 

iJWSPRIMT 

aybPRIHT 

007PRINT 

808PRINT" 

009PRINT" 

010PR1HT" 

i i PR I NT " o,^-.rt/-.=^ . ,SA/-..-,/-..-..-. . .••.x-.,-././-..-v/-. = ^./■./-./.^. = 

y Icrh. in i . o • lAt-i" " .-..■■■■•■.■■-..••ii-i° .■-■.■■■.-•i.-.» ■■ . • • .--=i--tt-ii--i" " 

014PRINT" 

01 SPRINT" 

0i6PRINT" 

017PRINT" 

01SPRINT" 

019PRINT" 

0£0PRIHT" : 

0P1PRINT" 

0Pc:PRINT" 

0P3PRIHT" 

0P4PRINT" : 






'.,-■ V"".,.' y 'x' V;* V v V y V y y y V;' V;' y y y ? y y y 



? 5 ? ? 



a o 1 •..".."..' B H 5 q ^ ij 

a " " " r''( i'""i r""i « B ' 

» a B ^ hiM'' P ^ '-■' ° 3 Kihi ^ 

O B O ■ ! Ill • ' :-■, B a ! Il i B 



, .- r-tr-( T KIT* II B a "a T B a b '. .' 

ti'l" K i rn B B • I « o B « B «» i--t 

:7PRIHT" :sXI KI 



15 1 ^ 
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9£8PRINT" 
ti£9PRINT" 
i330PRINT" 
031 PR INT" 

03PPRINT" 
033PRINT" 
034PRINT" 



XI 



03bP 

037P 
038P 
039P 
04 OF" 
04 iP 
04SP 
043P 
044P 
045P 
04bP 
047P 
048P 
049 

050 

051 
058 

0j3 
054 
055 



RIMT" 

PINT" 

RIMT" 

RINT" 

RINT" 

RINT" 

RINT" 

RINT" 

RINT" 

RINT" 

RINT", 

RINT"j 

RINT"; 

RINT":^ 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 



? ? ? 

1 D 



t t H H t 



lit II' 



1 ^ q 1 q 1 q 



=! K.'KJ T 1 



•:->:;W>:: 


^."...•V'-.-'V-.-"W'-.- 
-■.-•..■■•.--■i-.r-i.--i.-if- 


HBBtSGieaaDDBgiaiia^ 


O0<Kr< 


^^><X>Q<XK^ 


?;;;;;:;;;g5;J 




KKX><x>=:xx::^ 


?;;j;;;;jj»5 


^;Xwv 




9at]iiaMiii>5 ^ 


sXXX>< 


..."...■V"--"WV"-.-"-.- 
- ■! r -I f -I t"i I— 1 .• ■< .""• ■> i" 


- B B a • a • a ' 


<^m^ 


...-V..."...-V"-.-"VV«-.- 
■-..-■.•-.i-t,--i.-.rti"..-- 


.'WWWW. .^ 


<>oo^ 


-.■■■-.-■WWW 


. ' i.JWWWWW . >^ 


OiKKK 


...■W»W"-.-^^.v-^V 
-■■.--.t-ii--ir-ir-ii--i.--i . 


. .SWWWW ' 



.l^^lftKXftKftltlMN:: . " 

° Kf<KfQ<>^^i MMMMMMMMMM" 
^::>^:yK><X><XsMMMmMNMMMri " 
n>:;XXXXKs MNMMMMMMMMri" 
KXXX><=sKKsMMNmMmMMri " 

-:XXXXXKXX: mMMMMMNMM" 
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LINUS 

Description 

This program generates a picture of Linus making a speech. Whats that in his left 

hand? Hm m m m m m m. Execute the program to find out. The program will load and 

execute in 4K Bytes of memory. 



LINUS 



1301 PRINT 






002PRINT" 




003PRINT" 




004PRINT" 




005PRINT" 




00fc.PRIHT" 




007PRINT" 


K 


008PRINT" 




«H(fc 


009PRINT" 




«»; 


010PRINT" 




«K 


011PRINT" 


».-m!i 


«M 


0i£PRINT" 


5K"* »;*: 


«Sf 


01 SPRINT" 


KK *:=«:« 5KW 


014PRINT" 


•:S ffi « 


015PRINT" 


». s 


01 SPRINT" 


w w 


017PRINT" 


ffi 


01 SPRINT" 


ffi 


019PRINT" 


•« 


0S0PRIHT" 


M 


021 PR I NT" 




0e£PRIHT" 


»= 


0S3PRINT" 


W. 


0c:4PRINT" 


»= 


025PRINT" 


•*: 


026PRINT" 










Sf 



9&;-^ ^ 



i« 



St 



Sf 



WS:5KS:SfW5K3J':3KK S? 






5^:5^^ 



"*• 



». 



»-: 






II 






II 









^ 



^Sti'K 



59f. 






S!:ii3t5*:5KS5K^.-W3(S5K^ 






m 



« 



* 



s^. 



m 



ffi 



»; 



5K ?K *:* 
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t1i-'.-PKiri! " 

i3£8PRINT" 
0£:9PRTMT" 
030PRINT" 

031 PR INT" 

032PRINT" 

eSSPRINT" 

034PRINT" 

035PRIHT" 

03fc.PRIMT" 

037PRINT" 

038PRiriT" 

039PRINT" 

040PRINT" 

041PRINT" 

04PPRIMT" 

043PRiriT" 

PI44PPJHT" 

04'5PRIHT" 

046PPINT" 

047PRIMT" 

048PRiriT" 

049PRIriT" 

050PRiriT" 

051 PR I NT" 

05SPRINT" 

053PRINT" 

054PRINT 

055PRINT 

056PRINT" 



« 



='RINT' 



v-. is 

■:¥. 
*i 






ffii**ffi;^KSiHK#:S5K-fti*fc'*:5K5K5KS:-iKffiKSfS6SfS?StJKSfSt' 



:S " 

S: " 

; s; '■ 

SiSffiS-ffi i^. Si ;*: 

S i^ift Sift ift 

i?: i^SiSiiKiSiiS iS 

'#■ « »i 

is ■*: 



'i^l 



Si -ts^s'*: " 
i*i i*i i« " 



iSi$iiSiSieWiS*r*jfr;i*iiK*i*iiKi4ii3«WffiSt5KSiSt5Ki*:StS?S?Si*i3K 5K 

S iS?S:StiftiSKiSiS5KSt5KS?i*i '#: 

iftiS^iiSSSti'Ki^ii^jKiftffiS: ini i<ii 

i%i-SSifr:ffi;<fiiKJS5K"*SfS^StSjKMi<^'#.^iiSiSi*3K?KSS:3K-ft3fiiKjKjKSt5K iS 



i« 

iSW 



Si« 



i*i 



II 



iftSi«5KK5KSiK5KS5S-fr;*;^3ffi^»:5«^»:3K5«WiS'^Sj«»6^5*:-W5K5KSti*f. 



iS " 
ift " 

i^i" 



St5ftS^®i^i$:3ftift3Ki^^i'K 



bit 

058PRINT" 
059PRINT 
0b0 PRINT 

061 PRINT 

062 PRINT 

063 PRINT 

064 PRINT" NOW 

065 PRINT" HND 

066 INPUT m 

067 IF H*:="nKHY" THEN 076 
063 PRINT 

6! 69 GOTO 060 
070 END 



NCi PROBLEM IS TOO BIG OR TOO COMPLIPhTEH 
TO BE RUN RWflV FROri= . » 

LINUS " 



TERR YOUR DRflWIHG FROM THE ROLL? TYPE IN THE WORD 'OKAY'. " 
PRESS THE ^RETLRN* KEY... 
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MS. SANTA 

Description 

This is a picture of Santa's best friend. When you run this program you will see 

why Santa only leaves home once a year. Seven K Bytes of memory are required for 

storage and ex^ution of this program. 



MS. SRNTR 



001 PRINT 
00£ PRINT 

003 PRINT 

004 ppjm 

005 PRINT 
006PRINT" 
007PRINT" 
008PRINT" 
009PRINT" 
1 ©PRINT " 
011PRINT" 
01 SPRINT" 
1 SPRINT " 
014PRINT" 
01 SPRINT" 
016PRINT" 
0i7PRINT" 
1 SPRINT " 
019F'RINT" 
0£0PRINT" 
021PRINT" 
022PRINT" 
023PRINT" 
0S4PRINT" 
0£5PRINT" 
0£6PRINT" 
027PRINT" 
0£^=*RINT" 



tirttniN. 

mMMMMMMMMs s " s . 

Mmtitimrim' ' : . 

mMMMTttlfl^ 
MMMMfttls . • 

MfMirttl. . : . . 

MMMmrtm. .-• 

MnriMMMm . . : 

MflffflMI. s s ,...„. o ! " 

Mr«iu » — "-.?? ..... ' 

UMIH.^ Wfi J s flWH ? U " 

I R I • " 

'y\r •seas ' tt m a B a a 



9 V_VS 

t • I * 

9 9 •> t, m f f 



B B D - as 



a D e e 



e tt Q o 9 " 9 

B • » « 

s 
B Q O a 



flM 
RMMfl 

HMMM 



.! ? 
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0£ypRINT" MMM 

yytiPRINT" MMM HIIIH ■■ 

031KRIMT" MMMR Rlllllllfl „._, '...., , 

H3PPRINT" MMMMUIIIIIIIIIfl.. _.. 'i ' 

033PRINT" MMMU I II 1 1 1 1 II Ifi ....... „ 5 ° 

034Ph:INi" 'M' Illllllllllfl . '. , .»■ ;" .. 

035PRINT" n Illlllllllllfl. J?j. i,j ; 
fi36PRiriT".s;s: M IIIIIIIIIIIIIII ; 

M37rRIHT"; i y I III III III III III. 

iSSSPRINT": n^^' IIIIIIIIIMIIIIIIII, .;. ' ,^ 

039PRINT"s t IIIIIIIIIMIIIIIIIIIIIIIIII-' ?M 

04ypRINT'": ;' IIIIIIIIIMIIIIIIIIIIIIIIII- :' 
041PRINT""" IIIIIIIIIMIIinilllllllllll s 
04PPRINT" IIIIIIIIIMIIIIIIIIIIIIliiii:„;. 

043PKlHr" inilllllMIIIIIIIIIIIIIIliiiii 

044PRINT" IIIIIIIII IIIIIIIIIIIIIIIIIIIK 

045PKiriT" IIIIIIIII 7IIIIIIIIIIIIIIF : 

y4brKiriT'^ II I mil 71111111111111: ; 

04rPRINT" IIIIIIII 7IIIIIIIIIIIIS 

043PRINT" IIIIIIII 7IIIIIIIIIIII-.-I' 

y4yr'RiriT" IIIIIIII IIIIIIII I IIIIIIIIIL 

05yPRINT" IIIIIIIIII:? IIIIIIIIIIIIIIIIIIIIIIL " 

UbiPRINT" niIIIIIII..IIIIIIIIIIIIIIII' "II ■■ 

0;:^£PRINT" =IIIIIIIII:IIIIIIIiniIIIII III " 

°!:3Lf;pi;; "IIIIIIIIIIIII IIIIIIII IIIIII. .IIIIL '■ 

■^:^^l^]r, ' ^'" iniiiiiiiiiiiiiiiiiiiiiiiiiii 

y3_.r-RiNT" ; MMMMMMMMMMMMMMMMMMMMMM MMMM 

ybt.HR I NT" ;, MMMMMMMMMMMMMMMMMMMMM MMM MMMM 

!;i..--rPINT" ' s s : s 5 : ' MMMMMMMMMMMMMMmMMMMM MMM MMMMM = 

:"5|?^;^^^^"^" MMMMMMMMMMMMMMMMMMMMM MM" 

ySiPRlMT" 

06£PRIMT" 
0fc3PRINT" 
yfc.4PRINT" 
ybSPRINT" 
ybbPRINT" 
y67PRiNT" 

yespRiNT" 

069PRINT" 
y7ypRINT" 

071 PRINT " 
y7£PRIMT" 
073PRINT" 
y74pPIj-.jT" 

W75PRINT" 
076PRIMT" 
077PRINT" 
078PRir-lT" 



a a 1 



■i ^ II 



o n a ^ ^ 
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giSQPRINT" 
yfilPPINT" 
PiSePRIHT" 
i;!33PRINT" 
n34PRIMT" 

yy5PRiNT" 
yybPRlNT" 

8S7PRIHT" 
QyypRiriT" 

iZiyyp'RINT" 
!:i9SPRIt-IT" 
id 91 PR INT " 
i392PRIHT" 
tiyyPRINT" 
094PRIflT» 

095PRINT" 
096PRinT" 
i;ri9?PRINT" 

09epRim" 

099PRiriT" 
iijypRIHT" 
101PRINT" 
ly^PRIr^T" 
laypRIHT" 
104PRIr!T" 
iOSPRIHT" 
IdbPRIriT" 
137'PPIMT" 
10 SPRINT" 
169PRiriT" 
iiapRINT" 
1 llPRIhT" 
IIPPRIHT" 
1 1 iipRIHT" 

I i4pf:.jHT" 

IISPRIMT" 
:l l^.PRIiiT" 
li7PRINT" 

II SPRINT" 
1 1 SPRINT ■' 
1P0PRINT" 
1P1PRIHT" 
1S£PRIHT" 
ISSPRIHT" 
1P4PRINT" 
1,S5PRINT" 
1 2 SPRINT ■■ 
1£7PRINT" 
ISSPRiriT" 
1P9PRINT" 
1S0PRINT" 

131 PRINT 

132 PRINT 

133 PRINT 
154 PRINT 
135 PRINT 
13b PRINT 
137' PRINT 
133 PRINT 
159 PRINT 
140 END 



n a n * B 


a « a « B » M 


B c « a a a 


4 1 « ■■ n a i 
» n n ' ' n ' • a a 


n B ■ a ■ n 


5 H a u 1 

MB n - " E 




n n 1 a 




a " a B D 


" n H f> B 




? 


.MM. 


, 


.MMMM... 


1 I u 


. MMMMMMM 


nri. 


, MMMMMMM 


riiiMriNNMNriNNririM 


ilMMMMMMMMMMMMM 


MMMMMNMriMMMMM 


MMMMMM 


MMMMMMM. 


^IMMMMM 


MMMMMMMM 


MMMMM 


MMMMMMM. 


MMMMM 


M MMMMM 


MMMMM 


M MMMMM 


MMMMM 


H MMMMM 


MMMMMM 


MMMMMMM 


MMMMMM 


MMMMM 


MMMMMT'IM 




MMMMMMM " 




MMMMMMM" 




MMMMMM " 




MMmn " 




MMMM " 




MMM " 
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NIXON 

Description 

The face of a former President of the United States of America is reproduced in 

outstanding detail. Once loaded into memory it will execute in 5K Bytes. 



iiftiiri 



iril 



K 



IIPF 



PPR 

>:PR 

4PR 

5 PR 

6F'R 

7 PR 

8PR 

9PR 

:0PR 

■IPR 

'£PR 

;3PR 

4 PR 

'5PR 

6PR 

7PR 

8PR 

9PR 

0PR 

IPR 

£PR 

3PR 

4PR 

5PR 

6PR 



i- OF' 
PR I 

rc:K 

EM 
INT 
IHT 
I NT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT' 
INT' 
INT' 
INT' 



1 = 1 
NT 

T I 



TO 10 



MnriMNNNMMZZZZZZZ 
MMMMMMMMMriNMZZZZZZZZZ " 
ZZZZZZZZZMMMNMNMriMMMMMriMMMZZZZZZZ " 
MMMMMZMMMmmMMMNmriMMMMMMMMMMMMMZZZZZZZ " 
MrflMriMMMMMMMriMMririMMr'ttlMMMZZNMmMMMMZZMZZZZZZ " 

MMririMMriririMririmririr-iriMririr'iririMMzzririMNr-iMMMzriMMZzzzzz " 

Mr1MNMMMNMMMM+4-+-f++++-4-+MNMMriMMZZMriNMMMMMMMZZZZZZZZ " 

riririNriMNNriNri+++++-9-++4-+-f++Mrir'iNMriririMzzr-iMriMNMMriMMririzzzzzzz'' 
MHriMMriNriNN++++-*-4-++++++4-+4-4-Mrir-iririMrf"irizzMmrir'tiMriNMNrizzzzzzz " 
^1^1^1MN^1r1MM^1++++++++4•4-+4-4-++4-++N^1NM^1^1^1^1^1MZ^1^1^1M^1!1r1M^t1^1^1MN^1Z 

MNMMMMMNMM++++++++++4-+++-f+4-++NMMMMMht1HMMMI1HMMMMMMririMriMMZZZZ 



a a o a 



' Mr'iriMMMMMM++++++-f „ 
' MMr'1MMMM+++++ 
'MMMriM+++4-++. . 
' NN+++++++. , . 

' M++++++-f 

' +++++++ . 

++++++. ..... 

i ++++++ . . 

' ++++++.++__ 

+4-S-++4-+. .... 
+++++++. „ . . , 



. -!-+++++MMMMririMM»1MMMt1MriMriMr'1Mr-1MriMMMIiriZZZMI1ZZZ " 
. ++++++MMNMriMriHMriMmi1MMMrir'iriMMMmMNMr'1ZZZMMMMZZ " 

..... ... +++-+MMMMMriMMrir'1MMMMMHMMriMMMMMMNMriMZZZMMMMMZZ" 

............ +++++MMMriMMMriNMr'iriMMMMMMMr-t1MMriMririMMZZZMNMMMMZ 

........ ++++++MMMMMriMMMMmMNr-tiririMMMMMMMMMMMMMZZMMI1MM 

......... ++++++riMMmNriMMMMMriMMriMMrir-iriMMMriliriMMMMZZMMf1Z 

»."».. . -!-++■» -f++MMriMNMMMMHriMNMririMmMMriMMl 1 1 1 IMMZZMMZ 

. ..... +++++-!-+Hi-++MNmmMMMMriMMMMMMl 1 1 1++++1 1 IMZZZ 

-n-++++++4-+-t-+MMMriMMMmmMMl 1 + 1 11111 + 1 IMMZ 

........... +++++++++++-}-++4-+-f-+MMMMMMMII1MMMl 1 + 1 1+++1 1 + 1 IMMM 

. . . .++++++++ZZZZZ++++++++++++++MMMMNMMMMll + l+++++l + lt1MI1M 

+++++ZZZZZZZZZZZZZ+++++++++++++MMMMHMMMM 11+1 +++++ 1+1 MMMM 

_^zzzzzi 111 izzzzzzzi+++++++++++mMMMrimMi i++i++++i+immmm 

ZZZZl 1 ZZZZZl ZZ 1 ++++++++++-f +++-4-4-++++++++ . „ +++++++ 1 + 1 NMMM 

+++++++++++zriMMmmMMzi+. ............... +++++-^++++4-++. . +.^++++14-1 immmm 
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37PRINT" 

38PRINT" 

39PRINT** 

4ePRINT" 

41 PR I NT" 

4£PRINT" 

4 SPRINT " 

44PRINT" 

45PRINT" 

4t.PRINT" 

47PRINT" 

48PRINT" 

49PRINT" 

5 SPRINT " 

51 PR I NT" 

5 SPRINT" 

53PRINT" 

54PRINT" 

55PRINT" 

SfoPRINT" 

57PRINT" 

5 SPRINT" 

59PRINT" 

60F-R'INT" 

61 PR I NT" 

bEPRINT" 

6 SPRINT" 

64PRINT" 

b5PRINT" 

66PRINT" 

b7PRINT" 

b SPRINT" 

69PRINT" 

70PRINT" 

71 PR I NT" 

7£ FOR I 

73 PRINT 

74 NEKT 

75 END 



++4-H 



itiMMMMMrfliM. ..++„......,... 3 .. . 4-J-4-4-5-4-4-4-S-4-+ „ „ +++. „ +i4-riririMMri" 

. „ . mill. .4-++i. . Ill "... = . o .. . , .4-+++4-4-++4-+++. „ . „ . . i++iMf-tirti" 

+++7777+. . . „ +4"f~i"S-l4-+-i-+„ ................. +^-!-++++^-!"^+4■„ .„..„= +1MMMMMM" 

++-7vj;;JMf.ir.1 „ „ 4-+++. .....„.»..„.„„,..,. = ...- 4"f4-4-++++++4"«-i . . „ . . 1 ItlMMMMMIi" 

4-"?^MMMMM° ' ° ° +++. . . » a . . . , . "" ' .. = ... = ...... +-4-++-5-++4-4-s-++i . . . IMMMMMMMMM" 

+^mMri '"++„.___ .._........ = . ++++4-++-I-++++1 IMmMMMMMMMZ" 

zM, . = ++° I °. +++-»-= ...........»... = ...... = =." . .4-++++-i-f+4-+. .ZMZ1+. ..... = ;; 

+ . .++„ . „ . +++. ...» = = ....„».»......»..».." .+++-!-++4-++. . . . +4-+. ......„__ 

+ ++. .... +++. „ IZZl „..„...+„...» o ... e »«.. . + + ++++„ ......,++..._...__ 

++..... ++++.ZZZZi ..........+.............. +-8-4-4-4-+. ...... +++++. ....__ 

+ , . . ++++ZZZZZ1 ........ ++++++. ............ ++++++. ..... +++++++. . - 

+ 4-4-4-4--77'2ZZl „....„.„. I I I 1 I I i ........... „ 4-++++++. . . . 4-++++++++++" 

+ J+++++7ZZZ++. .... ++ZZZZ 11 + ............. +++++++ g:g:g:!i:g::5:g:&S:S:*&++4 " 

+....+.rzz+++I Izzzz """ " 1++. ...........++++++++..++++++++-8-+" 

-^...+....+++zzz zzi +++............. -«-+-«"5-++-8-+i-^+-«-+^+-^++-*- ° 

+ .„. + ... +ZZZZ ZZZl 1+++. ............ 4-1+++++++++++++++++ ■ " 

+...+.. +zz zzzz 11 ++.............. = .+«.+-*-++-«-+-^-^+-«-+++-^ * 

+ . . + ,.+ZZ ZZZ111+++.............0...+...+++++++++++-5- -' 

+ .. + ... zziiii++.................. = ..+i^-++-^"«-+-^+++-»-+ 

+ 4-4-4-4"4- .................... +++++++++++ = 

-''•••' ......... +++++++++++++ : " 

+ 11 ° I II I II II II II II ............ . 4-+++++++++++++ " " 

++1 1 1 1 1 1 1 1 1 1 1 1 11 1 ...... . +++++++++++++++++++ ' " 

++. .................. ++++++++++++++++++ ■ " 

++. ................ 4-++++++++++++++++ ' " 

++............. 4-4-4-+++++++++++++++ ' " 

++........= +++++++++++++++++++ ' " 

1 1 1 1 14-4-+++++++++++++++++ ■ " 

nil- 



= 1 TO 5 
I 



■-,■''■ 






■:■ -■ ■■■■■ ■ .V . . ■: ;•• ;:V= 

. ■■■';'.■ ■ ■>:•..,.■■>.. I-/.- 
'-• '• .. - I •!■ '-. r 
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NOEL NOEL 
Description 

This is the most comprehensive picture program included in this volume. When 
completely executed the picture drawn is of the Madonna and Child. Due to the 
magnification factor of this picture it should not be viewed at distances of 
closer then six feet. This is a very beautiful picture and is sure to catch 
the eye of all who see it. The source code is 13K Bytes long and the program 
will store and execute in this space. 



1:101 
O0S 
ti03 

10 R 

11 PR 
ISPR 
1 3PR 
1 4PR 
1 5PR 
1 6 PR 
1 7PR 
1 SPR 
19PR 
£0PR 
eiPR 

aepR 

cork 
c! ^PF! 
S5PR 
£6PR 
£7PR 
28PR 
£9PR 



FOR 1=1 TO 10 

PRINT 

riEKT I 

EM 

iriT"MMriMrt 

I NT" 

I NT " riririririMririMririNMriririMririMriMmmririMriMriMHMMM^^^ 

I NT " MriMMririMririMMriMMririririmrir-tflimMNMriMriMMMMMriMMMrimrimM 

I HT •' ^1^1^1^1r1r1Mr1r1t1Mr1r1r1r1Mr1^lr1r1r1^t1M^1r iMMmriririhMMmMMiiMmMMiiM 

I NT " MriMMriMMrir'1MririMMMMMMmHmH88 . 8H 1 1 88 = . frrrr: I MritiririMMMMMriNMMMMM 

I NT '■ MMMriMMMMriMMMriMMMMMmHHmee: . 8H 1 1 8 8 . „ fTTTT: I MMMMMMMMMMMMMMMMM 

I NT " MNriMMMMriMriMMMt1MNMMMriHH88 . 1 HHHH 1 1 1 1 88 rnnHMMMMNMririMMMMMM 

I NT ■■ MMMMMMriMMririMMMr-iririMmHH88 = I HHHH 1 1 1 1 88 nrnHMMMMNMMMMMMMrill 

I NT " MNMMriMriMMMriMriMriMriM " 88 . . H 1 1 1 1 ' ' 1 1 1 HH " . . ' " I MMMMMMMMriMIIM 

I NT " MMMMriMMriMMMMMr-IMNMM " 88 . . H 1 1 1 P H 1 1 HH ' ' . . ' " I MriMMMMNMMMm 

INT"ririMMriMmMMMMMMMriM=88. ..II I8888I I IHH' ' . 8888aHriririMMMriMr#l 

iNT"MriMmrimriMMriMMriMri=88„ , . 1 11888811 ihh' ' . 8888RHMMMMMMrirfiii' 

I NT " MMMMMMMMMMriMMMHHHS . . . I II " I HH I HH I . . ' " HH ' ^ . . =r,-rr==MMMMMM 

I NT " MMMMMMMMMMMMMMHHHS » . . 1 1 1 " I HH I HH I . . " ' HH ^ ^ , . =r:f:r:r:==riMNMI1M ' 

INT"f1MMMMMmMMriMmri=' „ „ IHHI IHHHI ^ " » H. HHHI IHH. . . . R88RHHriMM!1' 

iNT"mr-iMriMriNririMMririM=^ , „ , imi ihhhi ' ' ' ^ h, hhhi ihh. . . , pftSRHHMMm' 

I NT ■' MMHMMMMMMNri==MH ' . . ' HHW ' 1 1 = I HMMM I . ' I == ' 1 1 1 H8R nnr r =MMMriMM ' 
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30PRINT"MriMMriMriMrim==MH' . . ^HHHH' II = IHmMI » ' 


I==^IIIH88 




cccc= 


-•MMMMMri" 


3 1 PR I NT " MririMMMMriMriMMM= ... H 1 1 1 1 1 1 '^11 I " 


' '^IIIMMII' 




? 5 s == = 


41MMMMM" 


3 £PR I NT ■' riMMMMMt1MfiriMriM= ... H 1 1 1 1 1 1 ^'11 I '^ 


5 ^MIIMMII- 




5 J S _ == = 


=MMMMMri" 


3 3PR I NT " MriririMriMMMMH88 . . HHH 1 1 1 1 . ' CM I HMMMS 


.' MMMMHM88 




' ' ' . 8:31: 


J I MMMMM" 


3 4PR I NT " riMririMNririMMH88 . . HHH 1 1 1 1 . ' CM I HMMMS 


.' MMMMHM88 




? .» .a OOC 


n MMMMM" 


3 5PR I NT " MMMMMMMMMMH= . I HHHH ^ ' I . 1 1 HM I ' C 


CMMMMHHHMMMH' ' . 




. * ' . . 


CI MMMM" 


36PPINT"MNMMMMMMMMH=.IHHHH" I .IIHMI' C 


CMMMMHHHMMMH^ ' , 




, 5 

n . . 


CI MMMM" 


3 7Pp T NT ■■ MriMMMMMMMM= ' . I HHHH 1 1 H I M 1 1 HHMM 1 1 MMM 1 1 HHHHHH== " . . 


:i 


___ 


n 3 :rr==:r==: " 


:-iHPPIHT"MMMMMMMMMM=' . IHHHH I IHIMI IHHMMI IMMMI IHHHHHH==' ' . . 


) 


=::=:= 


? q rriz:" 


3MPpn4T"MMf.lMMMMMMM=' .HI I==IHI IMIHHHMMHIHMMMHHHHI " ' ^ 'M=HP 


J 


M 


5 ?riMfv|" 


4PipPiriT"MriMMMMMNMM=' . HI I==IHI IMIHHHMMHIHMMMHHHHI " ' ' ^ M=HI ' 


5 


n 


' ■ MMM" 


4 1 PPINT"MMMMMMMM=' ' I IH88 HHIMMMHHM==I I I IJC 


CCCC ' =MMi- 


p 




' 3HMM" 


4£PRIHT"mMMMMMM=' ' I IH88 HHIMMMmM==III IJC 


.CCCC ■ =MMI- 


1' 




'SHMM" 


43PR I NT " MNMMMMMMM= ' . CHH ..III. C II 1 1 " " ' 


5 ?=p 


11' 




- I MMM" 


44PKlfiT"MMMMMMMMM=' . CHH. .III. CIIII'"" 


? ? =!•■ 


11' 




' I MMM" 


4 5PR I NT " riMMMMMMMM= ' ' === 


3= 


T ? 




MCCHMM 


■1 6 PR I NT " MMMMMMMNM= ' ' === .... 


8= 


:=P . 




MCCHMM" 


A 7PR I NT ■= NMMMMMMMMH8 CHMH .... 


? 


MM 1 8 


3 


MCI MM" 


48PRINT"MMMMMMMMMH8 CHMH. . . . 


5 


MM 1 3 


Zj 


MCI MM" 


^1 9PR I NT ■' riMMMMMMMMH ' CCHMH . . 8 . 


c 


iMMMI 


3£! 


MMCIH 


50PRINT"MriMMMMMMMH' CCHMH. .8. 


J~ 


mnm 


3C' 


MMCIH" 


5 1 PR I NT " MNMMMMMMH ' . 88HM I . . 8 . 




MMM I 




. . ..8IH 


;:i £PR I NT " NMMMMMMMH ' . 88HM I . . 8 . 




MMM J 


„■'_-* n 


. . . .8IH" 


53PPINT"MMMMMMMHHH . 88HHI . .8. 




83MMMIS3I 


38 CI " 


54PPINT"MMMMMMMHHH . 88HHI . .8. 




83MMMI88I 


38 CI " 


55PR I NT '' riMMMMMMHH8 . M I HM3 . 88 




SMMMI883 


.3. MM" 


5 6PR I NT " MMMMMMMHHS . M I HMS . 88 




SMMMI388 


.8. MM" 


57PRINT"MNMMMMMH88. CMM8. .8. 


? ? ? 


3 


IMMM83 


. I. " 


5 8PR I NT " MMMMMMMH88 . CMM8 . . y . 


5 ! 3 


8 


IMMMS8 


. I . " 


':. 9PR I NT " MMMMMMH8 . . . MMM8 . . 88 


. .8LHHH88. 


U 


IMMI3. 


CC " 


60PRINT"MMMMMMH8. . . MMM8. .Sy 


..SLHHH88. 


IJ 


IMMI3. 


CC " 


h 1 PR I r- IT " MMMMMMH8 „ 8 . riM8 . 88 . . 5 


. 8HHHTT 




IMH ISj 




6 £PR I NT '■ MMMMMMH8 . 8 . MM8 . 88 . . ? 


. SHHHTT 




IMH IS? 


T C» " 


6 3PR I NT " MMMMMMH . . 8 8NM I 8 I I HHH8 . 


.S88.38HHL. ? . 




I H S3 


MM" 


fc, 4PP I NT " MMMMMMH . . 8 SMM 1811 HHH8 . 


.SS8.38HHL.5. 




I H 38 


MM" 


fc. 5PR I NT " MMMMMM .... I MMH . 8 ? 8LHHHHH . ? 


. 38H===8TS 




8H I 


J .81" 


fc. 6PR I NT " MMMMMM I MMH . 8 5 8LHHHHH . ? 


. S8H===ST8 




3H I 


? .31" 


6 7PR I NT " MMMMMM . . 8 . HMMH . . 8HTSM ' = ' H8 . . 


CHL8LT8 




8 MH3 


MCM" 


fc. SPR I NT " MMMMMM . . 8 . HMMH . . 8HT8M ' = ' H8 . . 


CHL8LT8 




3 MH8 


MCM" 


6 9PR I NT " MMMMM I . . 88 CHMMM8 . 8 1 T8TST 1 8H I . 






KIH8 


.■— . |i 


7 0PR I NT " MMMMM I . . 88 CHMMM8 . 8 1 T8T8T 1 8H I . 






KINS 


C 


7 1 PR I NT " MMMMM8 . . 88 MCI MMM I . CC MC 






.HMI 


3 C? " 


7£PRINT"nMMMM8..88 MCIMMMI. CC MC 






= HMT 


5 C? " 


7 3PP I riT " MMMMM . . . 88 . CH I HHH ? 8 MMM 






8IMHHH3 


O " 


?■ 4PR I NT " MMMMM ... 88 . CH I HHH j 8 MMM 






SIMHHHS 


o •- 


7 5PR I NT " MMMM .... 88 . C I MMM8 . 8 . MMM 






HMMH I 3 




7fc.PRINT"MMMM....S8. CIMMM8.8. MMM 






HMMH I 8 


i; 


7 7PR I NT " MMM8 . . . 3888 . CMMH . 8 . . MMM 






. I HHH I 


13 C" 


7 SPR I NT " MMM8 . . . 8838 . CMMH . 8 . . MMM 






. I HHH I 


13 C " 


7 9PR I NT " MMM8S MMCCC CHH 1 . 8 » s MCM 


M 




MHHHHII 


3. CC " 


80PRINT"MMM88 MMCCC CHHI.S=5 MCM 


M 




MHHHHII 


c; f:f:" 



260 



■ 1 PR I NT " MMM8 . MMMCrnr 

: apR I NT " nnris . r-iriMcccc 



::3PRINT"t1MM8. 
:i4PRINT"riMri8. 

::5PRINT"MMM.. 
;:6PRINT"-MriM. . 

i?pRiHT"mm. 

::8PF=IHT"MmM. 
::yPRINT"MMM::-::. 

^0PRINT"MMMV, 

'ippiNT"NMri>';„ 

iPpRIHT^MMMK^ 



:;PP 



IN 



X li Sv 



IMMM. 



ii4PRINT"MNMri. . . 

ii5PRINT"MMMMM. . 

:i6PRINT"mMMM. . 

■7PRINT"riNMm» ■> 

■8PRINT"MriMMM= , 

'9PRINT"Mr1MMfl,8 

y0PPINT"MMMMM5 

ylPRINT"MMMm8 

y£PRINT"f1Mf1Mr-18 

W3PRINT-MMMMM. 

J4PRINT"mmM. 

y5PRINT"MMMI. 

0bPRIHT"r1Mf1I = 

y7PRINT"NMM. 

ySPRIHT"MMM. 

y9PRINT"MMI 

10PRINT"MMI 

11PRINT"MI 

l.£PRINT"MI 

13PRINT-M. 

14PRINT"M. 

1 SPRINT", 

IbPRIHT". 

ITPRINT" 

i SPRINT" 

19PRINT". 

P0PRINT", 

Pi PR I NT". 

PPPRINT", 

23PRINT", 

E:4pRiriT"? 

E'SPRINT":? 



MMMCGGGC, 
MMMCGGGC? 

. .. .=$$$111 

o H n 8 ^•^'■■Z- i i i 

.... .8811 1 

n n s a o C' O i 1 i 

... jSIIIII 
... jSIIIII 

.5 58III$IIS 

.? j8III$IIS 
.$8 88 I H 
.$8 88 I H 
, :-', Mr 



MHH.s8Ss MCMCM MMM 

rim.j£s3s Mcncn mmm 

f-TC; QC"Z; OT LJOC■|-•r■ 

'-- i '-' . '_'■_•■_■ s . ■_■ i rio C'ljL- 
MrHy p. ccoTo 

1 !'_•! t\-'^ a H »„' ffl . . . "„"_."_• 1 • t 

MCHM. .8. ...888T8 
.yIH8,. .... MMMriMMCZ 

.8IH8.. .... MMMnnncz 

. . urns. . , .THHHHL888S 
. .UriH8. . . .THHHHL8S8S 

.... MMMMI J . $$$$=T? ? J . . . 
.... MMMMI 3 . $$$-$=T J » . . . . 
MC 1 1 HMMH 185. 88$$888 
Mr:IIHMMHI8? . 88$$88k 



IIHHMMHHHS. . .8$ 
I. . IIHHMmHHS. ..8$ 
HHI. IIHHHHHM8. .85 
MCHH I . II HHHHHM8 . . 3 ^ 
MCCHHII II88IHHHMMriMI . $$$, . , , 
MCCHHII I I88IHHHMiriMI . $$$5 ? , 
C C: I HHHoS MMMCCMMC I l-J I $8S8S£ 



CCIHHH? 
MCIIIHI8 
MCI I IH 1 8 
$$IIHI. 
$$IIHI, 
MMCCIH$? j= M 
MMCCIH$? ?= M 



MMMCCMMC I W I $88888 



MMMMM8 
MMNMMS 

. . . I . 



MMMMMMI 
MWtMMMI . J . , 
8. MMMMH8. 
8. MMMMH8, 

. . IM. . 
1$. s ?CHUH 
1$.? ?CHIJH 



Mi 

Mi; 
MGGCf 

MGGCC 

a B a J. S. -v'~T 

.'...II$$ 
BI I II 188 
3IIIII8S 



MMMCH$, 
MMNCH$. 

MMMCHH$! 

MNMCHH$! 



= . . IMIIIIHHI$. H888. . . . 818. 
. ..IMIIIIHHI$.H888. ...818, 
. I HHI I MH I $88. 5 CMCM 
. I HHI I MH I $88.3 CMCM 

IIIIIIHI$$...8 



.5 888HHHHHHIII$$ 
. 5 888HHHHHHIII$$ 

$I.88,IHHHII$$$ 

$I.88.IHHHII$$$ 
$$?.!. IIHII$8 
$$j.I. IIHII$8 

.. MCMII8S?5 

.. MCMII8853 



iiiiiiHr$$ 

.? j$HHH$$IIIIIHI88. 
. ?5$HHH$$IIIIIHI8S. , 
j$8IHHH$$$$MIIIII.., 
j$8IHHH$$$$MIIIII.., 
$$I IHHH8. $$HIHH8. . . , 
$$IIHHH8.$$HIHH8.. .. 
$IIIHHHMT MMHM..... 
$IIIHHHMT MMHM..... 
IIIIHHH8 HII IM..... 
;6PRINT"$$IIIIHHH8 HII IM. . . . . 
:7PRINT" 1 1 1 1 IHHHHIHI , MI .,. = .„ , 
;8PRINT"IIIIIHHHHIHI,MI....._ 
9PRINT"8I 1 1 1 IHHHH. HS88, ....,„ 
0PRINT"8I 1 1 1 IHHHH. H88S. ...... 



, MjMI88 
M?MI88 
MM 1 8? ? 
MMI8? ? 

188? 

1 88 J 

QII8J 

QII8J 

8HHHI. 

8HHHI. 

CHHHHHM, 



NCHMMHHII8 C " 
MCHMMHHII8 C " 
j8HMMMMII8j" 
?8HMMMMII8s " 
8HMMMMHHII8 " 
SHMMMMHHII8" 
CCIHMMMMMHII$" 
CCIHMMMMMHII$" 
MCCCCMMMMMMIIS. " 
MCCCCMMMMMMII8? " 
CMMMCHMMMMHI$$" 
CMMMCHMMMMHr$$" 
CCCCI-iH88 " 
CCCCHH88" 
GI I II I III I" 
Glllllllir' 

8IIIIIIIH" 

8111111111" 

.811 II II II U" 

.81 III II I III" 

MCI II I II I III" 

MCI II I III III" 

. 1 1 1 1 1 1 II I II " 

. 1 1 1 1 1 1 II 1 1 1 " 

MGCIIIIIIIIII" 

MGCIIIIIIIIH" 

$$iiiiiiiiiiir 
$$iiiiiiiiiiir 
ciiiMiiiiiiiir 
ciiiMiiiiiiiir 

5 CIIHIIIHIIIIIIir 
? CIIHIIIHIIIIIIir 
$IIHIIHIIIHIIIIIir 
SIIHIIHIIIHIIIIIir 

$HiriMiiHiHiiiiiiir 

$HIIIMIIHIHIIIIIIir' 

HHHHHHIHI IHI IHI II II " 

HHHHHHIHIIHIIHIIIir' 

MHHHMHHHH IHIIHIIHIII" 

MHHHMHHHH IHIIHIIHIII" 

IMHHHHHHHHIHIIHI IHI r 



.$$$ILIM$j s 
.$$$ILIM$? 5 
s $$$LUL8S$$ 
5 $$$LUL88$$ 
8388== 'HHS8 
88:38==' HHS8 



CHHHHHM. IMHHHHHHHHIHI IHI IHI I' 

I MMMMMMM . MMMHHHHHHHHH I HHH T I ■ 

I MMMMMMM . MMMHHHHHHHHH I HHH 1 1 ■ 

MMH I MHHHH . MHMMMHHHHHHHH I H 1 1 H I T 

MMH I MHHHH . MHMMMHHHHHHHH I H 1 1 H II ' 

=LLL8HriHHHH KMHHHHHHHHHHHHH I H 1 1 H' 

=LLL8HMHHHH KMHHHHHHHHHHHHH I H 1 1 H ' 

. $$$ I HHHHHHH===HHHHHHHHHHHHH I H II H I ' 

$$$ I HHHHHHH===I-HHHHHHHHHHHH I H II H I ' 



261 



131 PR 
15SPR 

133PR 
134PR 
135PR 



==R 



i; 

137PR 

13SPR 
i39PR 
140PR 
141PR 

i-1-c.'F'F! 
143PR 
144PR 



1 






1 47PR 

1 4SPR 

1 49PR 

1 50PR 

151PR 

1 52PR 
I 53pp 

1 54PR 
1 55PR 
1 56PR 
1 57PR 
1 5SPR 
1 59PR 
1 faQPR 
1 61 PR 
1 b£PP 
1 63PR 

I h5PP 
1 66PR 

1 68PR 
1 69PR 
1 70PR 
l?iPR 
1 7ePR 



INT" I 
I NT "I 
I NT "I 
I NT "I 
INT"! 
I NT "I 
INT" I 
INT" I 

T KIT " I 

INT" I 
INT^^I 
INT" I 
INT" I 
INT" I 
INT" I 
INT" I 
INT"£ 
INT"2 

T f-.J J SI J 

I NT "I 
I NT "I 
INT" I 



4PR 
=:PR 

R 



1 76! 
1 i' i""r'R 
1 78PR 
179PR 
1 80PR 



INT" 

INT" 

INT" 

INT"I^ 

INT"I^ 

INT"L^ 

INT"U 

I NT "5^ 

INT"$:^ 

INT"$:^ 

INT"s^ 

INT"$, 

INT":?:. 

T WX " 

T r-iT " 

INT". . 
INT". . 

I NT " = =. 

T NT s! 

INT". . 

I NT " 

INT". . 
INT".. 

TNT" 

X { I : a a 

I NT " 

INT". . 

TNT" 



II 
II 
II 
II 
II 
II 

IH 
IH 
IH 
IH 
HI 
HI 
II 
II 
II 
II 
II 
11 
II 
II 
If- 

1$: 
l> 
l> 



IHHHHH8? 

IHHHHH8? 

IIHHHHHS? 

IIHHHHH-^? 

X X t 31 ti ll il I-t-'b b T-' o m a 
I IHnHHH-^-ia n "-?■«( B B 

IHHHHHHHHHHHI. 
IHHHHHHHHHHHI. 
IHHHHHH====IM. 
IHHHHHH====iri. 



CH) )) )t-.. 
CHI )))*,. 

GtfiriMMGGG? 

■ir ■±:-±--£:.t-t 



HHHHHH5 

HHHHHH:i 
IMII-l:. .5 

IMII$. .i 

1 11$. . . 5 

XXX ~r' a o o T 

T T-ir 

X-si.~r0oiBBEi 

T T-^ 

T t""x 

X O B 3 ? ? ? ? 

X y a ? 9 ? ? 3 



:'_^-j^- _^-j^- X X X a I 

>,^-^- ^-^- J_ X X a ( 

--i:*. -irTJ 



^^'J:;,- 3 ? ? 

^-jj> ? ^ (3 



M 
M 



MCMM 
MCMM 

MC:CH$.$ 

MecH$.$ 
ric 

:=sLLLHHL! 

>^:lllhhlj 

:.-|:*-LLI 

( t3 -r'-r'L-l— . X 



HHHHHH' 

HHHHHH 

HHHHHH 

HHHHHH 

I HHHHHH 

I HHHHHH 

CHHHH= 

CHHHH= 

CHHHHHS*' 

CHHHHH8$ 

MHHHH=I$ 

MHHHH=I$ 

$HHHHH$$I. 

$HHHHH$$I , 



i:$:$HHHHHHHHHHHHHHHK 1 

£$$hhhhhhhhhhhhhh;-;h : 
I >$$! hhhhhhhhhhhk I H : 
I <$$ I hhhhhhhhhhhh I H : 
s--$$$$=hhhhhhhhhhk I K : 
5$*-$$=hhhhhhhhhhh 1 1-. : 

=$$$$$*- 1 HHHHHHHHHHrJ- 
;$$$*-$ I HHHHHHHH!~JHP- 
;$$-|:-=:$HHHHHHHHHHHK:- 
r.$-=:$:$S:HHHHHHHHHH!-:Ks- 
;$$$$ H I 8HHHHHHK;HH;- 
;$$$$ H I SHHHHHHHHf--:- 



l-p$ 



=HI 
=HI 



:H|- 



5$) 



CCCMMMMMMCCn 
CCCMMMMMriCCM 

r- T T T ■=• 

'■— • XI, Xissbbot" 
i"- T T T '±- 

CIIII$ 
CI 1 1 If: 



CHHHHHHSf-s 
CHHHHHH$$^ 
■$ CCHHHHHI^I 
> CCHHHHHI$I 
HHHHHHHHHHI$$ 
HHHHHHHHHHI$$ 



■^-■?- ? 



,8118. 
,8118. 






CIIIIHHHHHHHHHHII.. 

CIIIIHHHHHHHHHHII.. 
MCCTHHHHHHHHI 1 1 II ? $ 
MCCIHHHHHHHHI I II I ? f 
.... IHHHHHIIII$I$$. 

.... ihhhhhiiii$i-$$. 
ririciHHHiii 
mmcihhhiii 

■?• I H I II. 

sihiii. 

? CCCCMM NCC 



CIf-$ 

:III8 
:III8 



;CCCMM 
;CCCMM 

c 

r: 



NCC 



cc 



, 5 ? '^^T ■-?■$ I I I I $ 5 

, J s *: I ■$■$- 1 1 1 I $ J 

,$$IIIIIIIHII$$II $rm.$ ,<^ CC 

, $$1 1 1 1 1 1 1 h 1 1 f^-ii J ? >■$ . ■$ 5 *•*• cc 

, 5 J J I IHIHHI 1 1 IIHI ? :?:*-$IJ m$ CN 

, 5 5 J 1 1 H IHH 1 1 II I H I ? $$$ I J S5--5 CM 

,*:$:$ 1 1 1 1 HHH 1 1 II $$ = $$ II I -^ G ! CCGMC 

, ^m 1 1 1 1 HHH 1 1 1 1 $$ . $$ I II 5: G J CCGMC 

: $$--=--I I IHHHIHHI II 1 1 II IMI*-5 =J>S J 5 I*-5 

$$$IIIHHHIHHIIIIIIIINI*-.=J$$3 J It-$ 

, $J.JJJJHHHHHHHHHI II IHI I immS$-f JI$f 

, 5JJJ.JJHHHHHHHI-HI I IIHI 1 1 $$$*■$$. Jim 

.$<$$$IIIIIIHHHHIIIIH III $*-$I$ 

.5:$$$5IIIIIIHHHHIIIIH III m^l^ 



Ms 



*-$$IIIIIIIIHIIHHIIII 
,*:$$IIIIIIIIHIIHHIIII 



II 

II 



CriMMM H 

CMMMM H 
CMMriHI I 
CriMMHII 

I. .HHI 

I. .HHI 

? CHI I If 

$j 5 CHI 11$ 

$$$$IHII$; 

$$$*IHII$i 

1 1 1 II 

IIHI 

P 1 1 1 1 1 

P 1 1 1 1 1 



r=iM 

MM 

IE 
IE 
II 
1 1 
II 
II 
LI 
LI 



hhhhhhnkk: 

" $M. MLHHHHHHHHK! 

> £M. MLHHHHHHHHK 

C ! ==LHHHHHHKrr-: 

C ? ==LHHHHHHkHK: 

I 5S.$ HHHHHHHHH' 

I 5$.$ HHHHHHHHK 

IS IIIHHHHHHH 

1$ IIIHHHHHHK 

I XIIIIHHHHHr-: 

I ftllllHHHHHH 

RI$$$$I IHHHH 

RI$S:$$IIHRHH' 

J J ==:H|T$$$$"-S-$ I =HKH 

IRII$$$$$$$S:*:S 



-" '_T- 



Ff ri. s=j 



M 






LL8$$$$i:5$$$$$ 
T$$T5$T*$5$$$$S£ 









iiir$s$$i 

IIII$$s*-I 



262 



181PRINT", 
18£PRINT"= 
1S3PRIMT"= 
184PRINT". 
1S5PRIMT". 
ISbPRINT". 
ISFF-RINT". 
188PRINT". 
189PRINT". 
190PRiriT". 

lyiPRiNT". 






II 

II 



j$$^i 



$tl$; 

$5:lfi 

$I:^$i 



IHIIHIIHHHNTHJ II III I 

IHIIHIIHHHHHHJ II HI! 

IIIIIIHIIHHHHI I.I IIHH 

IIIIIIHIIHHHHI I.I IIHH 

IIIIIIIIHHIim HI HHIH. 

IIIIIIIIHHIIHH HI HHIH„ 

$IIIII!1IMIIiriM IH. IIHHI 

^IIIIirilMIIIMM IH, 

■ir-ir-i- 



>$$$$: 



IIHHI 

*i II II I iHiHi iHHi 1 1 1 INI II iijmmjmmm--$- 

:$$I 1 1 II 1 1 HIHIIHHI 1 1 II MI 1 1 1 1 .Mm>J^m$^m 
$1 II I II IIHIHIIHI IHHI II 1 1 1 1$$5:$$$$$$5 




III 
III 

'■-.--.■-.■-.■-.■-.■-.■-.■-.■-: 



11111*-$" 
11111$*-" 



1 ytipRiNT" .... $i^m^$^m$i ii i ii iihihi ihi ihhi 1 1 1 1 11$$$$$$$$$$$$$$$****$$$$$*.$$$$" 

1 y :_-:PR I MT " MMMhf iriririf1MriMririMMMKMMMMMI1Mf1M«1MMMriMMmriMMMM^^ " 

1 y4PR INT niMMMMMMriMMMMMMMmi'tirfrlillimMrillMMMMMriMm 

1 y 5PR I NT " ^!Mf1^t1r1r1r1r1r1Mr1^1r1^fl1M^1l1Mml1MM^f iMMriMMMMMmMMriM " 

1 y bPR I MT " MMMriMMririr'1MMMMrir«M»W^1l«^t1MriMriMMMMMril1HMMMM " 

1 yFpRiri i "riMririMMririMMMrfliMhiMrirfiM»fii't'iMM!iMMMririMriMMrim 

3 98 FOR I=i TO IS 
199 PRINT 
£00 NEXT I 
£01 END 



i />■ 



/- — 



w. 



N 

I 



1 1- 



_/ 



263 



NUDE 

Description 

This is a playboy original that should be rated R, line 60 should do it. This 

picture is extremely detailed and is almost three feet long. It will execute 

in 9K Bytes of memory, as many times as you like. 
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PEACE 

Description 

This picture carries a message to all people of the world. Like NOEL NOEL this 

picture should be observed no closer then six feet. Can you tell what she is 

doing with her hands? Execution of this program is accomplished in 12K Bytes 

of memory. 
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POLICEMAN 

Description 

The name gives this picture away as our first line of defense against crime is 

pictured here. This picture is relatively easy to implement on a very small 

computer system as it can be executed in only 3K Bytes of memory. 



PiJLICEMflH 



001 FOR 1=1 TO 10 
00£ PRINT 
003 tVEKT I 

10 REM 

11 PR I NT" :^^"■■^::;^::xK " 

ippRiNT" x^^:^"KXKx^^:xx^^xx:Kx>^ " 

1 SPRINT" >:x:^^::K;K>^:K:K>=:^<;K:-:::^::o^:yxK " 

14PRINT" :K:>::yKX>^:x>^:><x><x^:>:"yyvv:yy •■ 

15PRINT" ;<:^=:>^:«><xx>^:KXKy>=:K>^K>"vyyvy 

16PRINT" xvxx^<><>^kkxxk::^:k:kx>:::>=:v>::xkxxx^ " 

17PRINT" K^iK^^?^ x^^x^ ;-:xxy>::x>^:-:K><>^:xxxx " 

lyPRINT" >%!=%K*^!Krt/^>^rt Ky^i yK:-iKKAKKKKKKKK'fOiy. " 

19PRINT" K^^y>0<^^^^XK K^m< >i^^fi;iii<K^^ 

£ ©PRINT" ^'^=:>'^<^:xxK>i^:x>^xxyxK>:K:::::K^^x^^x:KKXxxx 

£ 1 PR I NT " ^"!>wC>^>-::>':'^^>:">v<>^>::>^>o=:>C;>=:xxxx:- :>0\^^^ " 

? PF'P T NT " y V:'V:'V:'VV'^-"^-"^'"VVVV'-.-'V'...'V-'V VVVVVVVVVVVVV " 

£ SPRINT" :<:-\^<>::x>^x><x>^ xxx^::>=:kkx>=:x^>:xx><!" 

£4 PR I NT" xx><K>«.- -v.-x::<x:Kx>^>=:y><xxxx/xxxx " 

£5PRINT" yvx^y.^- .-^^'/'XXXXXXXXKXXrtX.'^XXXX " 

c'l-.pRlNT" yvi'yy .--yyyyyyyyy .-wvw n 

•— - ' I -.■»■'' ' I II t: t> I -* i' i.--ii"ii/'-.f-%i--.i--Bt".i"i •■ ftf'i^i^'if; 

£ 7PR I NT " XX X>KKXXX— •■■" .-"■XXXXXXXXX!'^^lX!"w^^^ " 

£8PF' INT " XXX -•■'XXXXXXXXXXXXXXXX " 

£ 9pp I NT " '-■■' yyyyyyy y wvv wwvvww y n 

— -' ' ■^''' •• ■■•<■■■• •^■■■.■•ii--i.--..--ii--.i-if.i"iri.--ti-irt<"..--ifirti-S f-, 

30 PR I NT" XX XXXXXXXXXXXXXXXXXXXX-^XX " 

31 PR I NT" XXXXXXX XX XXXXXXXX^'/'XX ' 

3£PRINT" y -XXX XX yyyyyyyy.>- y » 



273 



4 

4 
4 
4 

4 

4 
^1 



SPRINT" 
4PRIHT" 
SPRINT" 
6PRINT" 

7PRINT" 
SPRINT" 
ypRINT" 
©PRINT" 
1 PR I NT" 
PINT" 
3F=-RINT" 
4PRINT" 
SPRINT" 
6PRINT" 
7PRINT" 
SPRINT" 
SPRINT" 
SPRINT" 
1 PR I NT" 
SPRINT" 
SPRINT" 
4PRINT" 
5 FOR 1 = 
b PRINT 

7 NEKT ] 

8 END 
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SANTA'S SLEIGH 
Description 

This is one of the most decorative banner type pictures presented in this volume. 
The finished picture is seven feet long and depicts the lighter side of the Xmas 
season. Once your friends see this one they will all want one. This is the largest 
program contained in these volumes, requiring 27K Bytes of memory for storage and 
execution. The extreme length of this program may make it restrictive for systems 
with less then 32K Bytes of on line memory. 

, .' ,..' !-.. ! J. ': -J ■■ I 



Mtn PRir^T 

002 PR I MI 

003 PRINT 

004 PRINT 

005 PR I r IT 

006 PRINT 
00? PRINT 

008 PRINT 

009 PRINT 

010 PRINT 

011 PRINT 
01£ PRINT 

013 PRINT 

014 PRINT 

015 PRINT 

0£1PRINT" DD " 

0P£PRINT" D D 

0P3PRINT" D DH" 

0a4PRII^T" D I! Ti 

0P5PRINT" n riD 

0£6PRINT" 00 T( fiflfiO 
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7i£7PRTNT" I- 9 00 

g^gppj.TriT" MMM D 9 DQ000 © " 

jipqppjf.^j" MMrinn ©©mmm d 11000 

ti30PRINT" MM MM M00 D 00 9" 

H"; I PPT NT" MM MM M 00 B 000 60 " 

iSiiEPRINT" MM MMM M 00 D 000 00 " 

033PRirfr" MM MMM 00 D 00000 

034PRIMT" MMMMMMMM 00 D 

i;i35PRINT" MMMMMMMMMM 00 D" 

036PRIMT" MMM Ti BQ D 

037PRINT" MM D 00 D 

yJypPTfvjJii j.,^jv} n gy n " 

y39ppTNT" MM £100000G1£10000000 " 

I34gppj[-.]J" [-.If.! 000000000010000 " 

041 PR INT" Ii 00 0D " 

i7i4pppi|-jj" 00 D " 

043PRIHT"M D 000 D 

Lj44PPij--ij"Nf-i n 0a0 I) " 

g45PPTHT" MM D 00 It 

04bPRIMT" MMMM D 00 D 

ei4?PRINT"M MMMM MMMMM 00 D 

y4yPRINT"MM MMMMM 00 P " 

649PRIMT" MM MM 000 D 

i;i50PRiriT" MMMMMMM 000 D 

051PRIMT" MMMMMMMMM 00 B " 

05SPRIHT" MMD 00 DD 

053PRIMT" 110 00DD BD 

054PRIf-iT" BB 00 DDB " 

055PRINT" 00 

i^^^^pppiJ.^jH Rfl MMMMMMMMMMMMMMMMMMMM" 

R-,oppi[^^T" 00 MMMMMMMMMMMMMMMMMMM" 

ggqppif-^j.. 00 MMMMMMMMMMMMMMMMMM " 

060PRIMT" 00 MMMM" 

f.:, J Pp T f.] J II 00 MMMM " 

i^i^opPTNT" 00 MMMM " 

p,i,^PPniT" f^Pi MMMM" 

i::|£,4PPjf^j.. 00 ilMMMMMMMMMMMMMMMMM " 

i;,E,=;ppif-^T" 00 BB MMMMMMMMMMMMMMMMMMM" 

0g,£.ppii-^j.. 00 li n MMMMMMMMMMMMMMMMMMMM" 

067PRINT" 00 B BO 

0fi8PPINT" 00 B B B 

0g,9PPIf.^T" 00 B BB EEEEEEEEEEEEEEEEEEEE" 

p-^OPpTr-iT" 00 00 B 0000 EEEEEEEEEEEEEEEEEEEE" 

07ipRir-iT" 00 B 9 00 EEEEEEEEEEEEEEEEEEEE" 

07£ppTf^ji< f.jf.lf.i 00 Xi 9 II0000 EEEE EEEE EEEE" 

073PPIf.4j'> MMMMM 00MMM B B000 EEEE EEEE EEEE" 

074PPXHT" MM MM M00 B 00 ©EEEE EEEE EEEE" 

075PPI|-^j" f.fl NM M 00 B 000 60EEEE EEEE EEEE" 

07gppil^|]-" hif.^ PiNN M 00 B 000 00 EEEE EEEE" 

077PPTNT" MM MMM 00 B 90000 EEEE 
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a?8PRINT" 

fi79PRINT" 

ySQPRIHT" 

idSlPRIMT" 

eSSPRINT" 

yPSPRINT" 
0g4p[?TKjjM 

ysspRiriT" 

ySSPRIMT" 

y87T'RIrfr"M 

yP8PRINT"MM 

yyypRlNT" Mr 
yyypRlNT" t- 
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yp^pRiNT" 
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pfr.pp.pi 



RRRRRRRRRRRR' 

RF'RRRRRR ' 



■• i A 
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RIM"! 
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. 1 4- 



'- n 



■i 



liypRiNT" 

1 1 oF'R I Ml " 
llFPRiriT" 
1 lyPRINT" 

il9PRiriT" 

lyypRlMT" 

j pippjNT'^ 
lyPPRIMT" 
lyOPRIMT" 
ic:4PRINT" 

•j c^i=:C'c:=TNT" 

i l---_-i I--, ill! 

i piC\ppTNT " 

1 PFPRINT" 
1P8PRINT" 
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I29ppl\\j" MM fi000£i£i0£i000000 CCCC CUUU" 

J3yppif.jj'i li i-jg yii CCCC CCCC" 

131PRINT" B 00 D 

132PRIMT"M D 600 D 

l-;;oppil^^T"MM n 000 Ti HHHHHHHHHHHHHHHHHHHH" 

lo4PPI|-.^j.. f.if.^ l! ciM i! HHHF^HHHHHHHHHHHHHHHH" 

135PRINT" MMMM D 00 D HHHHHHHHHHHHHHHHHHHH" 

136PRINT"M MMMM MMMMM 00 D HHHH" 

;l37PPIf-^j"f.1f.1 MMMMM 00 B HHHH" 

13apRINT" MM MM 000 D HHHH" 

l-:;Qppir-^T" MMMMMMM 000 B HHHHHHHHHHHHHHHHHHHH" 

licriPPIf-^T" MMMMMMMMM 00 D HHHHHHHHHHHHHHHHHHHH" 

14iPRINT" HMD 00 DB HHHHHHHHHHHHHHHHHHHH" 

^4£PPI[-.ij" Tifj 00DD BB " 

i43PRINT" DD 00 DBB 

I :-1 4PPIHT" 00 RRRRRRRRRPRRRRRRRF:R,R" 

•]_ 4>=-,pp||-^jn 00 RRRF?RRRRRRRRRRRRRRRR" 

1 4i::,pp jf-ij" y@ RRRRRF'RRRRRRRRRRRRRR" 



147PRIMT" 00 



?RRR RRRR' 



148PRINT" 00 P'RRR ^^-", 

j^4.:5ppTMT" 00 F'RRRF;!R RRRR" 

j^cjf^ppjj-.^jii Q0 'RRRRRRRRR RRRRR" 

l^;l pp T MT " 00 PRRF-'RRRRRRRRRRRRRRR " 

■[p;jr-ppjj-.]j" 00 RRFvR RRRRRRRR 

153PRINT" 00 

]_=;4ppjj-|r" 00 " 

155PRINT" 00 BD II II" 

l-^.ppifMT" 00 D B IIIIIIIIIIIIIIIIIIH" 

l^Y^Pjj^T" 00 B Tin IIIIIIIIIIIIIIIIIIII" 

I'oSPRim" 00 B B B IIIIIIIIITIIIIIIIIir' 

159RRiriT" 00 B BB II II" 

iS0PRi\-{T" 00 00 B 0000 " 

16 1 PR I NT" 00 B y 00 " 

IbSPRINT" MMM 00 D 9 D0000 W SSSS 

163PRIMT" MMMMM 00MMM B _D000 SSSS 

164PRINT" MM MM M00 11 00 _ OSoSS 

165PRINT" MM MM M 00 B &kM b0SSSS 

166PRINT" MM MMM M 00 B 000 00 SSSS S 

167PRIMT" MM MMM 00 B 00000 SSSS S? 

163PRINT" MMMMMMMM 00 B SSSSS SS:^ 

ItyPRIHT" MMMMMMMMMM 00 B SSSSSSSS SSSS" 

170PRIMT" MMM B 00 B SSSSSS " 

171PRIMT" MM B 00 B 

172PRIMT" MM B 00 B 

173PRINT" MM 00000€i0ei00000W0 iTTT" 

1 7 4PR I MT " MM 00000C100000000 TTTT " 

17'=^PPniT" B 00 0B jjjj,. 

17.^-.pPir-.!T" B 00 D TTTTTTTTTTTTTTTTTTTT" 

177PPIHT"M B 000 B ^^.^-j-T-^^^.^^^-^..^-p^^.-^^-r-^,. 

17gppTMT"MM D 000 D TTTTTTTTTTTTTTTTTTTT" 

179PRINT" MM B 00 B TTTT" 



,-.,-.,-.,-•. II 
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1£^ SPRINT" 

136PRINT" MMI'i 

i87PRIMT" i 

J SOPRIHT" 

1 SypRINT" 

lyypRiriT" 

iyiPRiHT" 

i ''PPRIHT" 
i93PRINT" 
i34PRINT" 
iySPRINT" 
i96PRIHT" 
jyFPRINT" 
i'JSr'RIMT" 

iyypRiNT" 

200PRiriT" 
£01 PR TNT" 
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P03PPIHT" 
i?04PRiriT" 
P05PRIHT" 
c'06PRIMT" 
c'07PRiriT" 

PljQppTt-^Jil 

P09PRINT" 

PlaPRiriT" 

£1 iPRINT" 

PiPPRIMT" 

£■1 SPRINT" 

£14PRINT" 

S rSPRINT" 

P16PRINT" 

P17PPINT" 

Pi SPRINT" 

Pi9PRINT" 

Pc:0PRINT" 

PPlPRiriT" 

£PPPRir-IT"r1 

££3PRINT"riM 

££4PRINT" MM 

££5PRINT" MMMM D 00 

££«SPRINT"M MNMM MMMMM 00 
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279 



231PRINT" 
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SBSPRINT" 
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00 








£3bPRIMT" 






00 








£37PRINT" 
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£39PRINT" 
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£40PRINT" 
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£44PRINT" 
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£45PRINT" 
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SNOOPY 

Description 

That famous dog even plays football and this picture catches him in full action. 

This banner style picture is three feet long. All the kids will love it. The 

program is 8K Bytes long and will also execute in this space. 
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VIRGIN 
Description 

This is the most beautiful picture included in this volume and will most certainly 
grace anyplace it is hung. Pictured are the Virgin Mary and the Christ Child, using 
words from the bible to form their heads and faces. Starting in the upper left cor- 
ner and reading from left to right - top to bottom, the words of the scriptures 
give added meaning to this picture as it is read. This picture stores and executes 
in 8K Bytes of memory. 
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